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The vurpose of this guide is to enable 
programmers to compile, link edit, and 
execute FORTRAN IV programs under control 
of IBM System/360 Operating System. The 
FORTRAN IV language is described in the 
publication IBM System/360 FORTRAN IV Lan- 
guage, Form C28-6515, which is the corequi- 
Site to this publication. The programmer 
may use the language as described except 
for the debugging facility. 


The Programmer's Guide is organized to 
fulfill its purpose at three levels: 


1. Programmers who will use the cataloged 
procedures as provided by IBM should 
read the "Introduction" and “Job Con- 
trol Language" sections to understand 
the job control statements, the 
“FORTRAN Job Processing" section to 
understand the use of cataloged proce- 
dures, the "Programming Considera- 
tions" section to be able to use the 
FORTRAN language correctly and effi- 
ciently, and the "System Output" sec- 
tion to understand the listings, maps, 
and messages generated by the compil- 
er, the linkage editor, and a load 
module. 


2. Programmers who, in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/O 
devices, or temporarily modifying IBM- 
supplied cataloged procedures should 
read the entire Programmer's Guide. 


3. Programmers who are concerned with 
making extensive use of the operating 
system facilities, such as writing 
their own cataloged procedures, modi- 
fying the FORTRAN library, or calcu- 
lating region sizes for operating in 
an MVT environment, should also read 
the entire Programmer's Guide in con- 
junction with the following publica- 
tions, as required: 


IBM System/360 Operating System: Job 
Control Language, Form C28-6539 


IBM System/360 Operating System: System 
Programmer's Guide, Form C28-6550 


IBM System/360 Operating System: Super- 


visor and Data Management Services, Form 
C28-6646 


PREFACE 


IBM System/360 Operating System: Utili- 
ties, Form C28-6586 


IBM System/360: FORTRAN IV, Library 
Subprograms, Form C28-6596 


IBM System/360 Operating System: Link- 
age Editor, Form C28-6538 


IBM System/360 Operating System: System 
Generation, Form C28-6554 . 


IBM System/360 Operating System: Opera- 
tor's Guide, Form C28-6540 


IBM System/360 Operating System: Mes- 
sages and Codes, Form C28-6608 


IBM System/360 Operating System: Pro- 


grammer's Guide to Debugging, Form 
C28-6670 : 


IBM System/360 Operating System: 
Storage Estimates, Form C28-6551 


This publication contains appendixes 
that provide the programmer with the fol- 
lowing information: 


e Descriptions and explanations of com- 
piler invocation from a problem 
program. 


e Examples of job processing. 


e Descriptions and explanations for the 
preparation of subprograms written in 
assembler language for use with a main 
program written in FORTRAN. 


e Detailed descriptions of the diagnostic 
messages produced during compilation 
and load module execution. 


e A list of USA carriage control 
characters. 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 


the publication IBM System/360 Operating 


System: Linkage Editor are abbreviated to 
Linkage Editor publication. 
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The IBM System/360 Operating System (the 
operating system) consists of a control 
program and processing programs. The con- 
trol program supervises execution of all 
processing programs, such as the FORTRAN 
compiler, and all problem programs, such as 
a FORTRAN program. Therefore, to execute a 
FORTRAN program, the programmer must first 
communicate with the operating system. The 
medium of communication between the pro- 
grammer and the operating system is the job 
control language. 


The programmer uses job control state- 
ments to define two units of work to the 
operating system: the job and the job 
step, and to define the files (data sets) 
used in these jobs and job steps. He 
defines a job to the operating system by 
using a JOB statement; a job step by using 
an EXEC statement; and a data set by using 
a DD statement. 


JOB AND JOB STEP RELATIONSHIP 


To the operating system, a job consists 
of executing one or more job steps. In the 
Simplest case, a job consists of one job 
step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. . 


In more complex cases, one job may con- 
Sist of a series of job steps. For 
example, a programmer is given a tape con- 
taining raw data from a rocket firing: he 
must transform this raw data into a series 
of graphs and reports. Three steps may be 
defined: 


1. Compare the raw data to projected data 
and eliminate errors which arise 
because of intermittent errors in 
gauges and transmission facilities. 


2. Use the refined data and a set of 
parameters as input to a set of equa- 
tions, which develop values for the 
production of graphs and reports. 


3. Use the values to plot the graphs and 
print the reports. 


Figure 1 illustrates the rocket firing 
job with three job steps. 


In the previous example, each step could 
be defined as a separate job with one job 
step in each job. However, designating 


related job steps as one job is more etfi- 
cient: processing time is decreased 
because only one job is defined, and inter- 
dependence of job steps may be stated. 

(The interdependence of jobs cannot be 
stated.) 


Raw 
Data 


Projected Job Step 1: 


Data Refine Data 





Refined 
Data 


Parameters 


Job Step 3: 

Generate 

Graphs and 
Reports 








Figure 1. Rocket Firing Job 


FORTRAN PROCESSING AND CATALOGED PROCEDURES 


When a programmer writes a FORTRAN pro- 
gram, the objective is to obtain a problem 
solution. However, before the program can 
provide this solution, the program itself 
must undergo processing. The source pro- 
gram (source module) is compiled to give an 
object module; and the object module is 
link edited to give a load module. This 
load module is then executed to give the 
desired problem solution. 


If each of the three steps involved in 
processing a FORTRAN module is a job step 
in the same job, a set of job control 
statements that consists of one EXEC state- 
ment and one or more DD statements is 
required for each step. Because writing 
these job control statements can be time- 
consuming work for the programmer, IBM sup- 
plies cataloged procedures to aid in the 
processing of FORTRAN modules. A cataloged 
procedure consists of a procedure step or a 
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series of procedure steps. Each step con- 
tains the necessary set of job control 
Statements to compile or to link edit or to 
execute a FORTRAN module. (Note: A JOB 
statement cannot be cataloged.) 


Four FORTRAN cataloged procedures are 
supplied by IBM. These four cataloged pro- 
cedures and their uses are: 


FORTHC compile 

FORTHCL compile and link edit 

FORTHLG link edit and execute 

FORTHCLG compile, link edit, and execute 


Any of the cataloged procedures can be 
invoked by an EXEC statement in the input 
stream. In addition, each of the proce- 
dures can be temporarily modified by this 
EXEC statement and any DD statements in the 
input stream; this temporary modification 
is called overriding. 


DATA SETS 


For FORTRAN processing, a programmer 
uses DD statements to define the particular 
data set(s) required for a compile, link 
edit, or execute step. In the operating 
system, a data set is a named, organized 
collection of one or more records that are 
logically related. For example, a data set 
may be a source module, a library of mathe- 
matical functions, or the data processed by 
a load module. 


Data Set Organization 


A data set is a named collection of 
data. Several methods are available for 
internally organizing data sets. Three 
types of data sets are accessible in | 
FORTRAN processing: sequential data sets, 
partitioned data sets, and direct access 
data sets. 


A sequential data set is organized in 


the same way as a data set that resides on 
a tape volume, but a sequential data set 
may reside on any type of volume. The com- 
piler, linkage editor, and load modules 
process sequential data sets. The compiler 
uses the queued sequential access method 
(CSAM) for such processing, and load 
modules use the basic sequential access 
time method (BSAM) for object time I/0 
operations. | 


A partitioned data set (PDS) is composed 
of named, independent groups of sequential 


data and resides on a direct access volume. 
A directory index resides in the PDS and 
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directs the operating system to any group. 
of sequential data. Each group of sequen- 
tial data is called a member. Partitioned 
data sets are used for storage of any type 
of sequentially organized data. In partic- 
ular, they are used for storage of source 
and load modules (each module is a member). 
In fact, a load module can be executed only 
if it is a member of a partitioned data 
set. A PDS of load modules is created by 
either the linkage editor or a utility pro- 
gram. A PDS is accessible to the linkage 
editor; however, only individual members of 
a. PDS are accessible to the compiler. Mem- 
bers of a PDS are not accessible to a 
FORTRAN load module. 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the namé given to this PDS. | | 


A direct access data set contains rec- 
ords that are read or written by specifying 
the position of the record within the data 
set. When the position of the record is 
indicated in a FIND, READ, or WRITE state- 


ment, the operating system goes directly to 


that position in the data set and either 
retrieves, reads, or writes the record. 

For example, with a sequential data set, if 
the 100th record is read or written, all 
records preceding the 100th record (records 
1 through 99) must be transmitted before 
the 100th record can be transmitted. With 
a direct access data set the 100th record 
can be transmitted directly by indicating 
in the I/O statement that the 100th record 
is to be transmitted. However, ina direct 
access data set, records can only be trans- 
mitted by FORTRAN direct access I/O state- 
ments; they cannot be transmitted by 
FORTRAN sequential I/O statements. Records 
in a direct access data set can be trans- 
mitted sequentially by using the associated 
variable in direct access I/O statements. 


A direct access data set must reside on 
a direct access volume. Direct access data 
sets are processed by FORTRAN load modules; 
the compiler and linkage editor cannot 
process direct access data sets. Load mod- 
ules process data sets of this type with 
the basic direct access method (BDAM). 


Saying that a data set is sequential, 
partitioned, or direct access reflects its 
organization. Saying that a data set is 
cataloged or that it is a generation data 
set reflects a method of retrieving the 
data set. Sequential, partitioned, and 
direct access data sets can be cataloged; 
however, an individual member of a PDS can- 
not be cataloged because a member is not a 
data set. A generation data set can only 
be a sequential or direct access data set; 


a generation data set cannot be a PDS or a 
member of a PDS. (See the section “Job 
Control Language" for information on how to 
specify a generation data set.) 


Data Set Labels 


Data sets that reside on direct access 
volumes have standard lapels only; data 
sets that reside on magnetic tape volumes 
can have standard labels or no labels. 
Information, such as'a data set identifier, 
volume sequence number, record format, 
density, etc., is stored in the data set 
labels. The information required in the DD 


statement used to retrieve a labeled data 
set is substantially less than that 
required to retrieve an unlabeled data set. 


Data Set Cataloging 


To relieve the programmer of the burden 
of remembering the volume on which a par- 
ticular data set resides, the operating 
system provides a cataloging facility. 

When a data set is cataloged, the serial 
number of its volume is associated in the 
catalog with the data set name. A pro- 
grammer can refer to this data set without 
specifying its physical location. Any data 
set residing on a direct access or magnetic 
tape volume can be cataloged. 


Introduction il 


JOB CONTROL LANGUAGE 


The FORTRAN programmer uses the job con- 
trol statements shown in Table 1 to com- 


pile, link edit, and execute programs. 
Table 1. Job Control Statements 

Capes vee es re 1 
|Statement | Function | 
}-~---------}------------------------------ { 
| JOB [Indicates the beginning of a _ | 
| [new job and describes that job| 
}——-—-~——-—-————4—-—-—-—-—-—-—-—-—--—-—-—-—-—- -------- ----- 
|] EXEC |Indicates a job step and de-_ | 
| |scribes that job step; indi- | 
| |cates the cataloged procedure | 
| Jor load module to be executed | 
}---------- $------------------------------ { 
|DD |Describes data sets, and con- | 
| [trols device and volume | 
| |assignment | 
be Sei a ee See a See 
|delimiter |Separates data sets in the in-| 
| {put stream from control state-| 
| |ments; it appears after each | 
| |data set in the input stream | 
od ee eae ene cee ects Nee yo eerie cee ene Pea rene en J 


JOB MANAGEMENT 


Job control statements are processed by 
a group of operating system routines known 
collectively as job management. Job man- 
agement routines interpret control state- 
ments, control the flow of jobs, and issue 
messages to both the operator and the pro- 


grammer. Job management has two major com- 
ponents: a job scheduler and a master 
scheduler. 


The specific facilities available 
through the job scheduler and the master 
scheduler depend on the scheduling level 
the installation selects during system 
generation. Schedulers are available at 
two levels -- the sequential scheduler and 
the more powerful priority scheduler. 


poo nnn + + + 5 + + 
FORMAT 


|77/Name Operation Operand [Comment] 
|// Operation Operand [Comment] 
|7/* (Comment ] 


Mt a re ee ee 
Figure 2. Job Control Statement Formats 


12 


+} ———— — + —- 


Sequential schedulers process job steps 
one at a time in the order of their 
appearance in the input stream. Operating 
systems with a primary control program 
(PCP) and those that provide multiprogram- 
ming with a fixed number of tasks (MFT) use 
sequential schedulers. 


Priority schedulers process jobs accord- 
ing to their relative priority and avail- 
able system resources, and can accept input 
data from more than one input stream. Sys- 
tems that provide multiprogramming with a 
variable number of tasks (MVT) use priority 
schedulers. 


CODING JOB CONTROL STATEMENTS 


Job control statements are identified by 
the initial characters // or /* in card 
columns 1 and 2, and may contain three 
fields -- name, Operation, and operand (see 
Figure 2). 


NAME FIELD 


The name contains between one and eight 
alphameric characters, the first of which 
must be alphabetic. The name begins in 
card column 3 and is followed by one or 
more blanks to separate it from the opera- 
tion field. The name is used: 

1. To identify the control statement to 
the operating system. 


2. To enable other control statements in 
the job to refer to information con- 
tained in the named statement. 

3. To relate DD statements to I/O state- 


ments in the load module. 


ee cc ce me me re ce cree ce ee ee cen ee ee ee cee eee me ee ce cee ee eee ms ee ee en em cen a ee eS OS en cee mee ce ea ene ce 1 
APPLICABLE CONTROL STATEMENTS | 


Sa a a a a a a ah a ee ee Gi Sa geese | 
JOB, EXEC, DD 
EXEC, DD 


delimiter 


A RS EES SEED GREED CORED ED Ge ED Ee GED ome ateee <EEE ame eoeme come comme epee ques ame ame ene ee ee come ammD <aee GED EE REE ee CE que ee ee Cee ee eee ee ee ee 


OPERATION FIELD 


The operation field contains one of the 
following operation codes: 


JOB 
EXEC 
DD 


or, if the statement is a delimiter state- 
ment, the operation field is blank. The 
operation code is preceded and followed by 
one or more blanks. 


OPERAND FIELD 


The operand field contains the parame- 
ters that provide required and optional 
information to the operating system. 
Parameters are separated by commas, and the 
operand field is ended by placing one or 
more blanks after the last parameter. 

There are two types of parameters, posi- 
tional and keyword. 


Positional Parameters: Positional parame- 

ters are placed first in the operand field 

and must appear in the specified order. If 
a positional parameter is omitted and other 
positional parameters follow, the omission 

must be indicated by a comma. 


Keyword Parameters: Keyword parameters 
follow positional parameters in the operand 


field. (If no positional parameters 
appear, a keyword parameter can appear 
first in the operand field; no leading 
comma is required.) Keyword parameters are 
not order dependent, i.e., they may appear 
in any order. If a keyword parameter is 
omitted, a comma is not required to indi- 
cate the omission. 


Subparameters: Subparameters are either 
positional or keyword and are noted as such 
in the definition of control statements. 


Positional subparameters appear first in 
a parameter and must appear in the speci- 
fied order. If a positional subparameter 
is omitted and other positional subparame- 
ters follow, the omission must be indicated 
by a comma. 


Keyword subparameters follow positional 
subparameters in a parameter. (If no posi- 
tional subparameters appear, a keyword sub- 
parameter can appear first in the parame- 
ter; no leading comma is required.) Key- 
word subparameters are not order dependent, 
ij.e., they may appear in any order. Ifa 
keyword subparameter is omitted, a comma is 
not required to indicate the omission. 


COMMENTS 


Comments must be separated from the last 
parameter (or the * in a delimiter state- 
ment) by one or more blanks and may appear 
in the remaining columns up to and includ- 
ing column 71. 


CONTINUING CONTROL STATEMENTS AND COMMENTS 


A control statement can be written in 
card columns 1 through 71. If a control 
Statement exceeds 71 columns, it may be 
continued onto the next card. If a state- 
ment is continued, it must be interrupted 
after the comma that follows the last 
parameter on the card and a nonblank 
character must be placed in column 72. The 
continuation card must contain // in 
columns 1 and 2, columns 3 through 15 must 
be blank, and the continued portion of the 
statement must begin in column 16. 


Comments are continued by placing a non- 
blank character in column 72, // in columns 
1 and 2 of the continuation card, and con- 
tinuing the comment in any column after 
column 15 (columns 3-15 must be blank). 


There is no limit to the number of con- 
tinuation cards that may be used for a 
Single control statement or comment. 


Note: ExcesSive continuation cards should 


be avoided whenever possible to reduce proc- 
essing time for the control program. 


NOTATION FOR DEFINING CONTROL STATEMENTS 


The notation used in this publication to 
define control statements is described in 
the following paragraphs. 


1. The set of symbols listed below are 
used to define control statements, but 
are never written in an actual 


statement. 
ae hyphen = 
be. or | 


ce. underscore 
d. braces 

e. brackets 
f. ellipsis ails 
ge superscript 4 


= As 


3 
] 


The special uses of these symbols are 
explained in paragraphs 4-10. 
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.Uppercase letters and words, numbers, 


and the set of symbols listed below 
are written in an actual control 
statement exactly as shown in the 
Statement definition. (Any exceptions 
to this rule are noted in the defini- 
tion of a control statement.) 


a. apostrophe . 
b. asterisk * 


Cc. comma ; 
d. equal sign = 
e. parentheses ( ) 
f. period : 
ge slash / 


Lowercase letters, words, and symbols 
appearing in a control statement 
definition represent variables for 
which specific information is substi- 
tuted in the actual statement. 


Example: If name appears in a state- 
ment definition, a specific value 
(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lowercase letters, words, 
and symbols to form a single variable. 


Example: If member-name appears in a 
statement definition, a specific value 
(e.g., BETA) is substituted for the 
variable in the actual statement. 


Stacked items or items separated from 
each other by the “or" symbol repre- 
sent alternatives. Only one such 
alternative should be selected. 


Example: The two representations 
A 
B and A|B[C 
Cc 


have the same meaning and indicate 


that either A or B or C should be 


selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. 


Example: The two representations 


and A|B|C 


Qn }Y 


have the same meaning and indicate 
that either A or B or C should be 
selected; however, if B is selected, 
it need not be written, because it is 
the default option. 


7. ‘Braces group related items, such as 
alternatives. 
Example: ALPHA=({A|B|C},D) 


indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result. 
is ALPHA=(A,D). If C is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 


8. Brackets also group related items; 
however, everything within the brack- 
ets is optional and may be omitted. 
Example: ALPHA=({[A]B|C],D) 

indicates that a choice can be made 

among the items enclosed within the 

brackets or that the items within the 
brackets can be omitted. If B is 
selected, the result is ALPHA=(B,D).. 

If no choice is made, the result is 

ALPHA=(,D) . 


9. An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 


Example: ALPHA[,BETA]... 

indicates that ALPHA can appear alone 
or can be followed by ,BETA optionally 
repeated any number of times in 
succession. 


10. A superscript refers to a prose de- 
scription in a footnote. 


Example: NEW )+ 
OLD 
MOD 


indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


11. Blanks are used to improve the reada- 
bility of control statement defini- 
tions. Unless otherwise noted, blanks 
have no meaning in a statement 
definition. 


JOB STATEMENT 


The JOB statement (Figure 3) is the 
first statement in the sequence of control 
statements that describe a job. The JOB 
statement contains the following 
information: 


1. Name of the job. 


2. Accounting information relative to the 
job. 


ee ae eee 
| Name | Operation| Operand | 
| | | | 
seas ss Neer aera aar fe ee ee a ee eee ee eee ee ee { 
| | | Positional Parameters | 
| | | | 
|//jobname | JOB | ((Laccount-number] [,accounting-information])1 2 3] | 
| | | | 
| | | (, programmer-name]* 5 6 | 
| | | | 
| | | Keyword Parameters | 
| | | | 
| | | JMSGLEVEL=0 | 
| | | (MSGLEVEL=1 | 
| | | | 
| | | [COND= ((code, operator) [, (code, operator)]...7)8] | 
| | | | 
| | | (PRTY=nn]9 | 
| | | | 
| | | [MSGCLASS=x] 9 | 
| | | | 
| | | (REGTON=nnnnnk] 9 | 
pee ee Sat ec a OR ne er lee MR eS aI re Re PN ne a RR on Ae ne ee aE Te | 
[4I1f the information specified ("account-number" and/or "“accounting-information") con- | 
| tains blanks, parentheses, or equal Signs, it must be delimited by apostrophes | 
| instead of parentheses. | 
{2If only “account-number" is specified, the delimiting parentheses may be omitted. | 
|2?The maximum number of characters allowed between the delimiting parentheses or apos- | 
| trophes is 144. | 
|\“If “programmer-name“ contains commas, parentheses, apostrophes, or blanks, it must be | 
] enclosed within apostrophes. | 
|S5When an apostrophe is contained within "programmer-name", the apostrophe must be | 
| shown as two consecutive apostrophes. | 
[©The maximum number of characters allowed for "programmer-name" is 20. | 
|7The maximum number of repetitions allowed is 7. 
j®If only one test is specified, the outer pair of parentheses may be omitted. | 
|°This parameter is used with priority schedulers only. The sequential scheduler | 
| ignores it. | 
hs a a J 
Figure 3. JOB Statement 

3. Programmer's name. tem. No two jobs being handled concurrent- 


ly by a priority scheduler should have the 
4. Whether the job control statements are same “jobname". 
printed for the programmer. 


5. Conditions for terminating the execu- 
tion of the job. 


6. A job priority assignment. 


7. Direction for where messages should OPERAND FIELD 
come out. 


8. Specification of main storage require- 


ments for a job. Job Accounting Information 
Examples of the JOB statement are shown 
in Figure 4. The first positional parameter can con- 


tain the installation account number and 
any parameters passed to the installation 
NAME FIELD accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The "jobname" must always be specified; The format of the accounting information is 
it identifies the job to the operating sys- specified by the installation. 
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Figure 4. Sample Job Statements 


As a system generation option with 
sequential schedulers, the account number 
can be established as a required parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information on 
the cataloged procedure for the input read- 
er and how to write an accounting routine 
may be found in the System Programmer's 
Guide.) Otherwise, the account number is 
optional. 


Programmer's Name 


The “programmer name" is the second 
positional parameter. If no job accounting 
information is supplied, its absence must 
be indicated by a comma preceding the pro- 
grammer's name. If neither job accounting 
information nor programmer's name is pres- 
ent, commas need not be used to indicate 
their absence. | 


This parameter is optional unless it is 
made mandatory at the installation in the 
Same way as job accounting information is 
made mandatory. 


Control Statement Messages 


The MSGLEVEL parameter indicates the 
type of control statement messages the pro- 
grammer wishes to receive from the control 
program. 


MSGLEVEL=0 
indicates that only control statement 
errors and associated diagnostic mes- 
Sages are written for the programmer. 


MSGLEVEL=1 
indicates that all control statements 
as well as control statement errors, 
and associated diagnostic messages are 
written for the programmer. 
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Sample Coding Form 
10 | 41-50 


ERIS e PESO PSEISe ESOS Sie (RISO Se TaI9 oli T2[31415/617[sls[ol T2[3/4[s|6|71s[s1o}1 ZS Se VOTER Se EIST 
d —L 1 ER: Vent Ea EW 1 SO oes eK rE mk Cle Ela ees Lee 
JOB (21558199 46W) 9. Je SMITH’ >COND=(7 LT) »MSGLEVEL=4 


| go 
//1PROG2 JOB 1087F-21,.COND=(7oLT))PTY=10.REGION=100K __, 


51-60 61-70 7 


‘2 





Note: If an error occurs on a control 
statement that is continued onto one 
Or more cards, only one of the con- 
tinuation cards is printed with the 
diagnostics. 


Conditions for Terminating a Job 


At the completion of a job step, a code 
is issued indicating the outcome of that 
job step. This generated code is tested 
against the conditions stated in control 
statements. The error codes generated are: 


0 - No errors or warnings detected. 


4 — Possible errors (warnings) detected, 
execution should be successful. 


8 —- Errors detected, execution may fail. 
(If the LOAD option is specified, 
compilation continues. However, if 
the error is found in an executable 
statement, the statement is replaced 
by a call to the IBERH routine 
(IHCIBERH). If the resulting load 
module is executed, IBERH is called 
and execution is terminated. If the 
NOLOAD option is Specified, compila- 
tion is terminated. 


16 - Terminal errors detected, compiler 
or linkage editor terminated abnor- 
mally. (If a terminal error is 
detected during load module execu- 
tion, a 16 is issued.) 


The COND parameter specifies conditions 
under which a job is terminated. Up to 
eight different tests, each consisting of a 
code and an operator, may be specified to 
the right of the equal sign. The code may 
be any number between 0 and 4095. The 
operator indicates the mathematical rela- 
tionship between the code placed in the JOB 
statement and the codes issued by completed 
job steps. If the relationship is true, 
the job is terminated. The six operators 
and their meanings are: 


Operator Meaning 

GT greater than 

GE greater than or egual to 
EQ equal to 

NE not equal to 

LT less than 

LE less than or equal to 


For example, if a code 8 is returned by 
the compiler and the JOB statement 
contains: 


COND= (7, LT) 
the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any condition is 
Satisfied, the job is terminated. 


Assigning Job Priority 


To asSign a priority other than the 
default job priority (as established in the 
input reader procedure), the parameter 
PRTY=nn must be coded in the operand field 
of the JOB statement. The "nn" is to be 
replaced with a decimal number from 0 
through 14 (the highest priority that can 
be assigned is 14). 


If the PRTY parameter is omitted, the 
default job priority is assumed. This 
parameter is used with the priority sched- 
uler only. The sequential scheduler ig- 
nores it. 


Requesting a Message Class 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Eacn class is 
directed to an output writer associated 
with a specific output unit. 


The MSGCLASS=x parameter allows the mes- 
sages issued by the priority scheduler to 
be routed to an output class other than the 
normal message class, A. The "x" is to be 
replaced with an alphabetic or numeric 
character. An output writer, assigned to 
process this class, transfers the data to a 
specific device. 


If the MSGCLASS parameter is omitted, 
the job scheduler messages are routed to 
the standard output class, A. This parame- 
ter is used with priority schedulers only. 
The sequential scheduler ignores it. 


Specifying Main Storage Requirements 
for a Job 


The REGION=nnnnnk parameter is used to 
specify the amount of main storage to be 
allocated for the job. The “nnnnn" is to 
be replaced with the number of 1024-byte 
areas to be allocated to the job. This 
number can range from one to five digits. 


If the REGION parameter is omitted, the 
default region size (as established in the 
input reader procedure) is assumed. This 
parameter is used with priority schedulers 
only. The sequential scheduler ignores it. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 





EXEC STATEMENT 


The EXEC statement (Figure 5) indicates 
the beginning of a job step and describes 
that job step. The statement can contain 
the following information: 


1. Name of job step or procedure step. 


2. Name of the cataloged procedure or 
load module to be executed. 


3. Compiler and/or linkage editor options 
passed to the job step. 


4. Accounting information relative to 
this job step. 


5. Conditions for bypassing the execution 
of this job step. 


6. A time limit for the job step or an 
entire cataloged procedure. 


7. Specification of main storage require- 
ments for a job step or an entire 
cataloged procedure. 


Example 1 of Figure 6 shows the EXEC 
statement used to execute a program. 
Example 2 in Figure 6 shows an EXEC state- 
ment used to execute a cataloged procedure. 


NAME FIELD 


The “stepname™ is the name of the job 
step or procedure step. It is required 
when information from this job step is 
referred to ina later job step. No two 
steps in the same job should have the same 
"stepname." 
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OPERAND FIELD 


Positional Parameter 


Specifying a Cataloged Procedure: 


cab cea a 

cataloged-procedure-name | 
indicate that a cataloged procedure is 
invoked. The "cataloged procedure 
name" is the name of the cataloged 


The first parameter of an EXEC statement procedure. For example, 


must specify either the 


name of the cata- 


loged procedure or program to be executed. 


Each program ‘(load module) to be executed //° EXEC PROC=FORTHC 
must be a member of a library (PDS). The or 
library can be the system library // EXEC FORTHC 


(SYS1.LINKLIB), a private library, ora 
temporary library created to store a pro- 


gram from a previous job step of the same indicates that the cataloged procedure 
job. FORTHC is to be executed. 
Jee ee ee Ny ae ee te A Oa TE FAT Cano OS ay Ce Pee FET UE Og er ge mas re ee eT geet 1 
| Name | Operation| Operand | 
fanaa nn { 


//(stepname]+]|EXEC 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Pp ne ee cere ee eee a AED NS SND Se REND RD EEE ORE nee ee Se come acme SE aoe 


1Tf information from t 
pname" is required. 
2If this format is sel 
step in the cataloged 
3If the information sp 
be delimited by apost 
“If only one option is 
SThe maximum number of 
parentheses is 40. T 


Signs, the delimiting 
7The maximum number of 
parentheses is 144. 
SThe maximum number of 
9If only one test is s 
1°This parameter is use 

it. 


scott ae ie ata aoa deena lh i ei es mu 


| Positional Parameter 

' PROC=cataloged-procedure-name 

\ cataloged-procedure-name 
PGM=program-name 

| Eo-*.stepnane . ddname 
PGM=*.stepname.procstep.ddname 


ACCT 


Keyword Parameters 
| ne Breer eee ee : . 


nee 
PARM. procstep#f=(option[,option]...)3 % § 


COND 

eee eeeceee es) Suess eee seca mete cacekesin 
[, (code, operator[,stepname[.procstep]])]...8%)9] 

aay 10 11 


Fie piece ee) ithutee seccaass 


REGION 10 
REGION. procstep2) =nnnnnk 


Te UTE ATED UND ERED ERED CREE CT GETS EY RID RLU SAUER AER ENED OWED SED CONEY GOTT GREEN SOS REED SEED SIRI SCENES nD GUND OEE SONS ceneHenY SEATED SOIGEED “ENEOE APENND GENTRY RNTETD CONE UU SEERA SERED SAEED GES SERN SOREN SLITS GIES AEN ARETE TRSWY GORD SEE) ENED UREN GUID SREY CD GRID CR GOES SRGe wee cou SR 


his control statement is referred to ina later job step, “ste- 


ected, it may be repeated in the EXEC statement, once for each 
procedure. 

ecified contains blanks, parentheses, or equal signs, it must 
rophes instead of parentheses. 

specified and it does not contain any blanks, parentheses, or 


equal signs, the d-limiting parentheses may be omitted. 


characters allowed between the delimiting apostrophes or 
he PARM parameter cannot occupy more than one card. 


parentheses may be omitted. 
characters allowed between the delimiting apostrophes or 


repetitions allowed is 7. 
pecified, the outer pair of parentheses may be omitted. 
d with priority schedulers only. Sequential schedulers ignore 


11T£f only minutes are given, the parentheses need not be used. If only seconds are 
given, the parentheses must be used and a comma must precede the seconds. 


CD ERED TEE CORD EIEN SET RILIE CNERD HERDED ORE ASK VERERA TD ONCE GED ENG HI CD TED EEN Gee TD eee 


Figure 5. EXEC Stateme 
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| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| S6If "“accounting-information" does not contain commas, blanks, parentheses, or equal | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
L 


nt 


Sample Coding Form 


ae eee eee ee 21-30 31-40 ie Te a 6|-70 7-80 
'[21314[5]6]7 [8 [910] 1 121314]5[6[7[s[9lol | [2]3]415]6]7 [e[9fol | [213]4[5[6[7[s{9iolt [2[3[4|slel7[s[9[ol i [2]31415 {el [s[sfol i [2]3]4[sl6l7[elsjo} j2]3]4/516}7]8/910 


Example l 


ya en el On eH aE 
11, EXEC, POM=TEKAAOG) ACCT = (8962427) ,COND.=(7>LT).TIME=200 »REGION=228K 


amplé Z 
/iSTEPY EXEC FORTHCLG) 


AES ey Vs en Wee 


Os et es Va 
PARM- FORT=DECKoLINECNT=18@09MAP5ID,EDIT’)> 


PARM.LKED=XREF) 
COND. LKED=(7 LT 9STEPH.FORT) 5 


a COND.G0=((.7oLT>STEP4.LKED) 9( 75 LTSTEPL. FORT) )9 


ACCT=1@8LA 


Figure 6. Sample EXEC Statements 


Specifying a Program in a Library: 


PGM=program-name 
indicates that a program is executed. 
The “program name" is the member name 
of a load module in the system library 
(SYS1.LINKLIB) or private library. 
For example, 


// EXEC PGM=IEWL 


indicates that the load module IEWL is 
executed. (A load module in a private 
library is executed by concatenating 
that private library with the system 
library through the use of a JOBLIB DD 
statement. See the discussion con- 
cerning JOBLIB under “Data Definition 
(DD) Statement" in this section.) 





//MCLX JOB , JOHNSMITH, COND=(7,LT) 


//STEP4 EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=MATH (ARCTAN) 


//STEP5S EXEC PGM=*.STEP4.SYSLMOD 


statement STEP5 indicates that the 
name of the program is taken from the 
DD statement SYSLMOD in job step 
STEP4. Consequently, the load module 
ARCTAN in the PDS MATH is executed. 


Specifying a Program Described in a Cata- 
loged Procedure: 


Specifying a Program Described in a Pre- 
vious Job Step: 


PGM=*.stepname. procstep.ddname 


PGM=*.stepname.ddname 
indicates that the name of the program 
to be executed is taken from a DD 
statement of a previous job step. The 
* indicates the current job; "step- 
name" is the name of a previous step 
within the current job; and “ddname" 
is the name of a DD statement within 
that previous job step. (The “step- 
name" cannot refer to a job step in 
another job.) The program referred to 
must be a member of a PDS. For 
example, in the statements, 


indicates that the name of the program 
to be executed is taken from a DD 
Statement of a previously executed 
step of a cataloged procedure. The *# 
indicates the current job; “stepname" 
is the name of the job step that 
invoked the cataloged procedure; 
"procstep" is the name of a step with- 
in the procedure; "ddname" is the name 
of a DD statement within the procedure 
Step. (The "stepname" cannot refer to 
a job step in another job.) For 
example, consider a cataloged proce- 
dure FORT, 
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//COMPIL EXEC PGM=IEKAA0O 
//SYSPUNCH DD UNIT=SYSCP 
//SYSPRINT DD SYSOUT=A 


//SYSLIN DD 


DSNAME=LINKINP 


//UKED EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=RESULT (ANS) 


Furthermore, assume the following 
statements are placed in the input 


stream. 

//XLIV JOB ,SMITH, COND=(7,LT) 
1/81 EXEC PROC=FORT 

4/82 EXEC PGM=*.51.LKED.SYSLMOD 


//¥T03F001 DD 
//¥TO01FO01 DD 


UNIT=PRINTER 
UNIT=INPUT 


Statement S2 indicates that the name 
of the program is taken from the DD 
statement SYSLMOD. The statement is 
located in the procedure step LKED of 
the cataloged procedure FORT, which 
was invoked by statement S1. Conse- 
quently, the load module ANS in the 
PDS RESULT is executed. 


Keyword Parameters 


The keyword parameters may refer to a 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


Options for the Compiler and Linkage 
Editor: 


The PARM parameter is used to pass 
options to the compiler or linkage editor. 
(PARM has no meaning to a FORTRAN load 
module. ) 


PARM 
passes options to the compiler or 
linkage editor, when either is invoked 
by the PGM parameter in an EXEC state- 
ment, or to the first step in a cata- 
loged procedure. 


PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. 


The format for compiler options, and 
those linkage editor options most applic- 
able to the FORTRAN programmer is shown in 
Figure 7. 
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Detailed information concerning compiler 
and linkage editor options is given in the 
section "FORTRAN Job Processing." 


Condition for Bypassing a Job Step: 


This COND parameter (unlike the one in 
the JOB statement) determines if the job 
step defined by the EXEC statement is 


bypassed. 


COND 
states conditions for bypassing the 
execution of a program or an entire 
cataloged procedure. 

COND. procstep 


states conditions for bypassing the 
execution of a specific cataloged pro- 
cedure step “procstep". 


The subparameters for the COND parameter 
are of the form: 


(code, operator[,stepname] ) 


The subparameters "code" and "operator" 
are the same as the code and operator 
described for the COND parameter in the JOB 
Statement. The subparameter "stepname" 
identifies the previous job step that 
issued the code. For example, the COND 
parameter 


COND=((5,LT, FORT) , (5,LT, LKED) ) 


indicates that the step in which the COND 
parameter appears is bypassed if 5 is less 
than the code returned by either of the 
steps FORT or LKED. 


If a step in a cataloged procedure 
issued the code, "stepname" must qualify 
the name of the procedure step; that is, 


(code, operator[{,stepname.procstep] ) 


If “stepname" is not given, "code" is 
compared to all codes issued by previous 
job steps. 


Accounting Information: 


The ACCT parameter specifies accounting 
information for a job step within a job. 


ACCT 
is used to pass accounting information 
to the installation accounting rou- 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged 
procedure. 


Compiler: 


oe 


, LIST fee \ 
PARM. procstepj =" [OPT={0|1]| 23] [, NAME=xxxxxx] [, LINECNT=xx] |, NOLIST J (, EBCDIC 


| 

| 

| 

| 

| | eoORce oe ei 
| ,NOSOURCE Sf tl, NODECKS |, NOMAP 
| 

| 

| 

| 

| 

| 


Linkage Editor: 


ha 


MAP 
pete a eae eee 


|4The subparameters (options) are keyword subparameters. 
|2If the information specified contains blanks, parentheses, or equal Signs, it must be 
| delimited by apostrophes instead of parentheses. 


Compiler and Linkage Editor Options 


Figure 7. 


If both the JOB and EXEC statements con- 
tain accounting information, the installa- 
tion accounting routines decide how the 
accounting information shall be used for 
the job step. 


Setting Job Step Time Limits: 


To limit the computing time used by a 
Single job step or cataloged procedure, a 
maximum time for its completion can be 
assigned. If the job step is not completed 
in this time, the entire job is terminated. 


The time is coded in minutes and 
seconds. The number of minutes cannot 
exceed 1439 (24 hours); the number of 
seconds cannot exceed 59. (If the job step 
execution time is expected to exceed 1439 
minutes, TIME=1440 can be coded to elimi- 
nate job step timing.) 


If the TIME parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed. This parameter is used 
with priority schedulers only. Sequential 
schedulers ignore it. 


TIME 
is used to assign a time limit for a 
job step or for an entire cataloged 
procedure. For a cataloged procedure, 
this parameter overrides all TIME 
parameters that may have been speci- 
fied in the procedure. 


TIME. procstep 

is used to assign a time limit for a 
Single step of a cataloged procedure. 
This parameter overrides, for the 
named step, any TIME parameter which 
is present. One parameter of this 
form can be written for each step in 
the procedure. 


{20RD Vee \ ,EDIT hon " 2 
, NOLOADS t, NOID f ), NOEDIT f |, NOXREF 


Lo . — we 2 2 oe eo oe oe ee ee oe oe oe 


Specifying Main Storage Requirements for a 
Joop Step: 


The REGION parameter may be specified in 
the JOE statement, thus overriding REGION 
parameters specified in any EXEC statements 
and applying to all steps of the job. 
However, if it is desired to allot to each 
step only as much storage as is required, 
the REGION parameter should be omitted from 
the JOB statement; each EXEC statement 
Should contain a REGION parameter that 
specifies the amount of main storage to be 
allocated to the associated job step. The 
Size is specified in the form "nnnnnk" 
where the “"nnnnn" is to be replaced by the 
number of 1024-byte areas to be allocated 
to the job step. This number can range 
from one to five digits. 


If the REGION parameter is omitted from 
both JOB and EXEC statements, the default 
region size (as established in the cata- 
loged procedure for the input reader) is 
assumed. This parameter is used with 
priority schedulers only. Sequential 
schedulers ignore it. 


REGION 
is used to specify a region size for 
the job step or for an entire cata- 
loged procedure. For a cataloged pro- 
cedure, this parameter overrides all 
REGION parameters that may have been 
specified in the procedure. , 


REGION. procstep 
is used to specify a region size for a 
Single step of a cataloged procedure. 
This parameter overrides, for the 
named step, any REGION parameter whicn 
is present. One parameter of this 
form can be written for each step in 
the procedure. For a discussion of 
the region size required for FORTRAN 
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jobs, see the section "Cataloged 
Procedures." 


DATA DEFINITION (DD) STATEMENT 


The DD statement (Figure 8) describes 
data sets. The DD statement can contain 
the following information: 


1. Name of the data set to be processed. 


2. Type and number of I/O devices for the 
data set. 


3. Volume(s) on which the data set 
resides. 


4. Amount and type of space allocated on 
a direct access volume. 


5. Label information for the data set. 


6. Disposition of the data set after 
execution of the job step. 


7. Allocation of data sets with regard to 
channel optimization. 


NAME FIELD 


ddname 
is used: 


1. To identify data sets defined by 
this DD statement to the compiler 
or linkage editor. 


2. To relate data sets defined by 
this DD statement to data set 
reference numbers used by the pro- 
grammer in his source module. 


3. To identify this DD statement to 
other control statements in the 
input stream. 


The “ddname" format is given in "FORTRAN 
Job Processing." 


procstep.ddname 
is used to override DD statements in 
cataloged procedures. The step in the 
cataloged procedure is identified by 
"procstep". The “ddname" identifies 
either: 


1. A DD statement in the cataloged 
procedure that is to be modified 
by the DD statement in the input 
stream, or 
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2. A DD statement that is to be added 
to the DD statements in the proce- 
dure step. 


JOBLIB 
is used to concatenate data sets with 
the system library; that is, the 
operating system library and the data 
sets specified in the JOBLIB DD state- 
ment are temporarily combined to form 
one library. The JOBLIB statement 
must immediately follow a JOB state- 
ment, and the concatenation is in 
effect only for the duration of the 
job. In addition, "DISP=(OLD, PASS)" 
must be specified in the JOBLIB DD 
statement. (See the discussion under 
“Operand Field" concerning the DISP 
parameter.) Only one JOBLIB statement 
may be specified for a job. 


The "PGM=program name" parameter in 
the EXEC statement refers to a load 
module in the system library. Howev- 
er, if this parameter refers to a load 
module in a private library, a JOBLIB 
statement identifying the library in 
which the module resides must be spec- 
ified for the job. The JOBLIB state- 
ment concatenates this library with 
the system library. 


The library indicated in the JOBLIB 
Statement is searched for a module 
before the system library is searched. 


Blank Name Field 


If the name field is blank, the data set 
defined by the DD statement is concatenated 
with the data set defined in the preceding 
DD statement. In effect, these two data 
sets are combined into one data set. 
(Private libraries may also be concatenated 
with the library specified in the JOBLIB DD 
statement. Therefore, several libraries 
can be concatenated with the system 
library.) 7 


Note: Data sets whose records are of dif- 
ferent lengths and/or different formats 
cannot be concatenated. 


OPERAND FIELD 


For purposes of discussion, parameters 
for the DD statement are divided into six 
classes. Parameters are used to: 


Specify unit record data sets. 


- 
Operation | Operand?1 


|Positional Parameter 


| 

DD | [* 4 
|| DUMMY 
|| DATA 


ddname l 2 
//<\procstep. ddname 
\JOBLIB3 S 


Keyword Parameters® © 


DDNAME=ddname 


| 

| 

| 

| 

| 

| dsname 

| dsname (element) 

| *,ddname 

|| DSNAME= < *.stepname.ddname 

| *.stepname.procstep.ddname 
| &name 

| Eéname (element) 

| 
| 


[UNIT=(subparameter-list) ] 
| 
| (DCB=(subparameter-1list) ] 


| 

| [(VOLUME= (subparameter-1list) ] 
| | SPACE= (subparameter-list) 

|| SPLIT=(subparameter-list) 

| LSUBALLOC=(subparameter-list) 
| 

| 

| 


[LABEL=(subparameter-list) ] 


DISP=(subparameter-1list) 

SYSOUT=A 

SYSOUT=B 7 

|| SYSOUT= (xl, program-namel[,form-number])7 8 


| LSEP=(subparameter-list) ] 
1 


es eee cee ene ages ae eee ceewe cee eee eee ROP ae eee ED ae eee eee ae care eee eee 


— oe ee ee eee ee ee et ee ee ce cee ee ee ee ee cee ee cee ee cme es eee ea ee ee ee ee ee ee ee ee oe 


[4A DD statement with a blank operand field can be used to override parameters speci- 

| fied in cataloged procedures. (See “Overriding and Adding DD Statements" in the sec- 
| tion "Cataloged Procedures". ) 

|2The name field is blank when concatenating data sets. (Note the exception for the 

| use of JOBLIB.) 

|2The JOBLIB statement precedes any EXEC statements in the job. (See the discussion 

| concerning JOBLIB under “Name Field" in this section.) 

|*If either the * or DATA the positional parameter is specified, keyword parameters 

| cannot be specified. 

|SIf “subparameter-list" consists of only one subparameter and no leading comma (indi- 
| cating the omission of a positional subparameter) is required, the delimiting paren- 
| theses may be omitted. 

|\°If “subparameter-list" is omitted, the entire parameter must be omitted. 

|\7This form of the parameter is used only with priority schedulers. 

|®If “program-name" and "form-number" are omitted, the delimiting parentheses can be 

| omitted. If only the form number is given, the parentheses must be used and two com- 
| mas must precede the form number. 


Figure @. Data Definition Statement 


| 
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e Retrieve a previously created and cata- 
loged data set. 


Retrieve a data set created in a pre- 
vious job step in the current job and 
passed to the current job step. 


Retrieve a data set created but not 
cataloged in a previous job. 


Create data sets that reside on magnet- 


ic tape or direct access volumes. 


e Optimize I/O operations. 


The DD statement parameters that apply to: 


processing unit record data sets, 


retrieving data sets created in pre- 
vious job steps, 


retrieving data sets created and cata- 
loged in previous jobs 


are described in this section. (See Figure 
9 for applicable parameters.) 


Parameters shown in Figure 8 and not 
mentioned in this section are used to cre- 
ate data sets and optimize I/O operations 
in job steps. These parameters are dis- 
cussed in the sections "Creating Data Sets" 
and "Programming Considerations." 


Specifying Data in the Input Stream: 


* 


DATA 
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indicates that a data set (e.g., a 
source module or data) immediately 
follows this DD statement in the input 
stream (see Figure 10). If the EXEC 
statement for the job step invokes a 
cataloged procedure, a data set may be 
placed in the input stream for each 
procedure step. If the EXEC statement 
specifies execution of a program, only 
one data set may be placed in the 
input stream. The DD * statement must 
be the last DD statement for the pro- 
cedure step or program. The end of 
the data set must be indicated by a 
delimiter statement. The data cannot 
contain // or /* in the first two 
characters of the record. 


also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
*, except that // may appear in the 
first and second positions in the 
record. 


dsname 
dsname (element) 
\*. ddname 
DSNAME=( *. stepname.ddname 
*,. stepname. procstep. ddname 
éname | 
éname (element) 


UNIT=(namel, {n|P}2])3 


: 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| | 

| PRTSP=0 

| -PRTSP=1 

| PRTSP=2 

| DCB=({ (PRTSP=3 ) 
| | 

| HODERE\ {- Stace=3t 
| MODE=Cf |, STACK=2 
| 

| { SYSOUT=A 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


SYSOUT=B 
SYSOUT=(x[, program-name] [, form-number] ) 


SHR) |,DELETE |4 


OLD( |, KEEP | 
DISP=()NEW( |, PASS )5 
MoD) |, CATLG 
, UNCATLG 


Te A SS A NS ED NN NN GED EES SERED CRINS EAE REN TENE GENTE GENS CANES SUED GENER GGENNED END Cente GLINMED GiERAS GUEMID Gin GittemA aE <ISE <enrNe GEES SIE <LEY SRED ERE SRI vem Ce miRoOT Sm 


4 
|4If either of these two parameters is | 
|selected, it must be the only parameter | 
|selected. | | 
|}2If neither "n" nor "P" is specified, 1 | 
Jis assumed. | 
J7If only “name" is specified, the delim- | 
Jiting parentheses may be omitted. | 
|“The assumption for the second subparame- | 
Jter is discussed in "Specifying the Dis- | 
[position of a Data Set" in this section. | 
|SThe subparameters are positional. | 
|®See the section "Creating Data Sets." | 

J 


Figure 9. DD Statement 


UNIT Parameter: 


UNIT=(namel, {n|P}]) | 
specifies the name and number of I/0 
devices for a data set (see Figure 
10). When the system is generated, 
the "name" is assigned by the operat- 
ing system or the installation and 
represents a device address, a device 
type, Or a device class. (See the 
System Generation publication.) The 
programmer can use only the assigned 
names in his DD statements. For 
example, 


UNIT=190, UNIT=2311, UNIT=TAPE 


n|P 


where 190 is a device address, 2311 is 
a device type, and TAPE is a device 
class. 


specifies the number of devices ailo- 
cated to the data set. If a number 
"n" is specified, the operating system 
asSigns that number of devices to the 
data set. Parallel, "P", is used with 
cataloged data sets when the required 
number of volumes is unknown. The 
control program assigns a device for 
each volume required by the data set. 


DCB Parameter: 


DCB=PRTSP={0|1] 2| 3} 


Pe caer 


is used to indicate line spacing for 
the printer. The digits 0, 1, 2, and 
3 indicate no space, single space, 
double space, and triple space, 
respectively. 


The carriage control character in a 
FORTRAN record causes spacing before 
printing. The PRTSP subparameter 
causes spacing after printing. 


MODE=E { «stack=1} 
, STACK= 24) 


specify options for the card read 
punch. The MODE subparameter indi- 
cates whether the card is transmitted 
in column binary or EBCDIC mode; C 
specifies column binary, and E speci- 
fies EBCDIC. 


The STACK subparameter indicates 
stacker selection for the card read 
punch. 


Routing a Data Set To An Output Stream: 
With the SYSOUT parameter, output data sets 


can be routed to a system output stream and 
handled much the same as system messages. 




















/ISYSPUNCH DD UNIT=SYSCP2DCB=STACK=2 


Sample Coding Form 
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Figure 10. Examples of DD Statements for 


Unit Record Devices 









SYSOUT=A 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 
used. This form of the SYSOUT param- 
eter may be specified for printer 
data sets. 


SYSOUT=B 
can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler routes 
the output data set to class B. 


SYSOUT=(xI[, program-—name] [, form-number] ) 
indicates that the data set is normal- 
ly written on an intermediate direct 
access device during program execu- 
tion, and later routed through an out- 
put stream to a system output device. 
The "x" is to be replaced by an alpha- 
betic or numeric character that speci- 
fies the system output class to be 
used. Output writers route data from 
the output classes to system output 
devices. The DD statement for this 
data set can also include a unit spec- 
ification that describes the interme- 
diate direct access device and an 
estimate of the space required. If 
these parameters are omitted, the job 
scheduler provides default values as 
the job is read and processed. 


If there is a special installation 
program to handle output operations, 
its “program-name" should be speci- 
fied. "“Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a four-digit "form- 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Retrieving Previously Created Data Sets 


If a data set is created with standard 
labels and cataloged in a previous job, ali 
information for the data set, such as rec- 
ord format, density, volume sequence num- 
ber, device type, etc., is stored in the 
catalog and labels. This information need 
not be repeated in the DD statement used to 
retrieve the data set; only the name 
(DSNAME) and disposition (DISP) is 
required. 


Job Control Language 25 





If a data set was created in a previous 
job step in the current job and its dispo- 
Sition was specified as PASS, all the 
information in the previous DD statement is 
available to the control program, and is 
accessible by referring to the previous DD 
statement by name. To retrieve the data 
set, a pointer to a data set created in a 
previous job step is specified by the 
DSNAME parameter. The disposition (DISP) } 
of the data set is also specified, along ; 
with the UNIT parameter if more than one 
unit is to be allocated. 





gy 


If a data set is created with standard + “hy 
labels in a previous job but not cataloged,’ 
information for the data set, such as rec- 
ord format, density, volume sequence num- 
ber, etc., is stored in the labels; the | 
device type information is not stored. To 
retrieve the data set, the name (DSNAME), 
disposition (DISP), volume serial number 
(VOLUME), and device (UNIT) must be 
specified. 


If a data set is created with no labels 
and cataloged, device type information is 
stored in the catalog. To retrieve the 
data set, the name (DSNAME), disposition 
(DISP), volume serial number (VOLUME), and 
the LABEL and DCB parameters must be 
specified. 


Examples of the use of DD statements to 
retrieve previously created data sets are 
shown in Figure 11. 


IDENTIFYING A CREATED DATA SET: The DSNAME 
parameter indicates the name of a data set 
or refers to a data set defined in the cur- 
rent or a previous job step. | 


Specifying a Cataloged Data Set by Name: 


DSNAME=dsname 
the name of the data set is indicated 
by “dsname." If the data set was pre- 
viously created and cataloged, the 
control program uses the catalog to 
find the data set and instructs the 
Operator to mount the required 
volumes. 







pecifying a Generation Data Groupr 


Le) 


DSNAME=dsname (element) 
indicates either a generation data set 
contained in a generation data group, 
or a member of a partitioned data set. 
The name of the generation data group 
Or partitioned data set is indicated 


by “dsname"; if "element" is either 0 
or a Signed integer, a generation data 
set is indicated. For example, 


DSNAME=FIRING (-2) 
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indicates the thirdmost recent member 


of the generation data group FIRING. 
(See the Data Management publication 
for the complete description of 
generation data sets.) If "element" 
is a name, a member of a partitioned 
cetete set is art eee coe: 


CRE RIANA UNI HON OTRORPLLIOT HE erie 
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set CG 
FORTRAN Object program or created as 
output from a FORTRAN object program 
even though the member name has been 
specified in the DSNAME parameter of 
DD statement. ere 
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DSNAME=* .ddname 
indicates a data set that is defined 
previously in a DD statement in this 
job step. 
job. The name of the data set is 
copied from the DSNAME parameter in 
the DD statement named "ddname". 


Referring to a Data Set in a Previous Job 
step: 


DSNAME=* .stepname.ddname 
indicates a data set that is defined 
in a DD statement in a previous job 
step in this job. 
current job, and “stepname"™ is the 
name of a previous job step. 
of the data set is copied from the 
DSNAME parameter in the DD statement 
named “ddname". For example, in the 
control statements: 


// LAUNCH 
//JOBLIB 
//81 EXEC PGM=ROCKET 

//¥T01F001 DD DSNAME=RATES (+1) , DISP=OLD 
//®T09F001 DD DSNAME=TIME, DISP= (OLD, PASS) 
//82 EXEC PGM=DISTANCE 
//¥TO8F001 DD DSNAME=* 
// DISP=OLD 
//ETOSFO01 DD * 


JOB 


-5S1.FTO9FOO1, 


The DD statement FTO8F001 in job step 


S2 indicates that the data set name 


ee 


to a Data Set in the Current Job 


‘ 
Members of a pie ticiel its \ 
annot. be read as iInpu ‘oO a 


‘ 
a. 


The * indicates the current 


The * indicates the 


The name 


DD DSNAME=FIRING, DISP= (OLD, PASS) 


(TIME) is copied from the DD statement 


FTO9FO01 in job step S1. 


Referring to a Data Set in a Cataloged 


Procedure: 


DSNAME=*.stepname. procstep. ddname 


indicates a data set that is defined 
in a cataloged procedure invoked by a 
The * 
"stepname" 


previous job step in this job. 
indicates the current job; 


Sample Coding Form 


ee ee ST cr, BO 
TESABISTEDOLANAss YEG RSESe TSI ESAs TRUDI NM STIs TUM SIe MBO ss TED 


9, e 
Examp, | € 2, WW Ec WAG QR A i@iliaul Oger Late 


//FTO9FOO! DD DSNAME=MATH®DISP.=(OLD»PASS) 


o 


Py, 
YQIMALE 21 A 


//FT1OFOO1 


4 ( 


amp! 12: KE KG AGO 


DD DSNAME= ATH DISP= =OLDsUNIT=1809 VOLUME=SER=21 _ 


/LFTILFOOL 


Figure 11. 


is the name of a previous job step 
that invoked the cataloged procedure; 
“procstep" is the name of a step in 
the cataloged procedure. The name of 


the data set is copied from the DSNAME 


parameter in the DD statement named 
"“ddname". 


Assigning Names to Temporary Data Sets: 


DSNAME= &name 
assigns a name to a temporary data 
set. The control program assigns the 
data set a unigue name which exists 


only until the end of the current job. 


The data set is accessible in subse- 


quent job steps by specifying "éname". 


This option is useful in passing an 


object module from a compiler job step 


to a linkage editor job step. 


DSNAME= &name (element) 
assigns a name to a member of a tem- 
porary PDS. The name is assigned in 
the same manner as the "DSNAME=&name" 
This option is useful in storing load 
modules that will be executed ina 
later job step in the current job. 


SPECIFYING THE DISPOSITION OF A DATA SET: 
The DISP parameter is specified for both 
previously created data sets and data sets 
being created in this job step. 


SHR . DELETE 
NEW « KEEP 


DISP=()OLD , PASS ) 
MOD , CATLG 
, UNCATLG 


is used for all data sets residing on mag- 
netic tape or direct access volumes. 


The first subparameter indicates the 
status of the data set at the beginning of 
or during the job step. 


VIA 1A Mat A & AMS'EG 


DD BeME: =¥.STEPU.. FTO7FOO19DI SP=(MOD> KEEP ) 





Dal 


) 


ry 
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W 
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Retrieving Previously Created Data Sets 


SHR 
indicates that the data set resides on 
a direct access volume and is used as 
input to a job whose operations do not 
prevent simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a multi- 
programming environment for existing 
data sets. If it is omitted ina mul- 
tiprogramming environment, the data 
set is considered unusable by any 
other concurrently operating job. If 
it is coded in other than a multipro- 
gramming environment, the system 
assumes that the disposition of the 
data set is OLD. 


NEW 


indicates that the data set is created 
in this step. NEW is discussed in 
more detail in the section "Creating 
Data Sets." 


OLD 
indicates that the data set was 
created by a previous job or job step. 


MOD 
indicates that the data set was 
created in a previous job or job step, 
but records can be added to the data 
set. Before the first I/O operation 
for the data set occurs, the data set 
is positioned following the last rec- 
ord. If MOD is specified and (1) the 
volume serial number is not given, and 
(2) the data set is not cataloged or 
passed, MOD is ignored and NEW is 
assumed. 


The second subparameter indicates the 


disposition of the data set at job step 
termination. 
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DELETE 


KEEP 


PASS 


Notes: 





causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


insures that the data set is kept 
intact until a DELETE parameter is 
specified in a subsequent job or job 
step. KEEP is used to retain uncata- 
loged data sets for processing in 
future jobs. KEEP does not imply 
PASS. 


indicates that the data set is 
referred to ina later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the last job step that uses 
the data set. When a data set is in 
PASS status, the volume(s) on which it 
is mounted is retained. If dismount- 
ing is necessary, the control program 
issues a message to mount the vol- 
ume(s) when needed. PASS is used to 
pass data sets among job steps in the 
Same job. 


If a data set on an unlabeled tape is 
being passed, the volume serial number 
must be specified in the VOLUME=SER= 
parameter of the DD statement that 
"passed" the data set. 


The PASS status of the private 


library specified in a JOBLIB DD statement 
always remains in effect for the duration 
of a job. 
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CATLG 
causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes references to the data set to 
be removed from the catalog at the end 
of the job step. 


If the second subparameter is not speci- 
fied, no action is taken to alter the sta- 
tus of the data set. If the data set was 
created in this job, it is deleted at the 
end of the current job step. If the data 
set existed before this job, it exists 
after the end of the job. 


DELIMITER STATEMENT 


The delimiter statement (see Figure 12) 
is used to separate data from subsequent 
control statements in the input stream, and 
is placed after each data set in the input 
stream. 


| Name | Operation |Operand \ 
}----}---------4-------------------------- { 
[7* | | | 
 Sepeeneee Seeeee perenne fee So ee J 
Figure 12. Delimiter Statement 


The delimiter statement contains a slash 
in column 1, an asterisk in column 2, anda 
blank in column 3. The remainder of the 
card may contain comments. 


To process a FORTRAN source module from 
compilation through execution, three steps 
are required: compile the source module to 
Obtain an object module, link edit the 
object module to obtain a load module, and 
execute the load module. For each of these 
three steps, job control statements are 
required to indicate the program or proce- 
dure to be executed, to specify options for 
the compiler and linkage editor, to specify 
conditions for termination of processing, 
and to define the data sets used during 
processing. Because writing these job con- 
trol statements can be time-consuming work 
for the programmer, IBM supplies four cata- 
loged procedures to aid in the processing 
Of FORTRAN modules. The use of cataloged 
procedures minimizes the number of job con- 
trol statements that must be supplied by 
the programmer. 


USING CATALOGED PROCEDURES 


When a programmer uses cataloged proce- 
dures, he must supply the following job 
control statements. 


1. A JOB statement. 


2. An EXEC statement that indicates the 
cataloged procedure to be executed. 


3. A procstep.SYSIN DD statement that 
specifies the location of the source 
module(s) or the object module(s) to 
the control program. (Note: If the 
source module(s) and/or object mod- 
ule(s) are placed in the input stream, 
a delimiter statement is required at 
the end of each data set.) 


In addition, a GO.SYSIN DD statement 
can be used to define data in the input 
stream for load module execution. (A de- 
limiter statement is required at the end of 
the data.) 


The job control statements needed to 
invoke the procedures, and deck structures 
used with the procedures are described in 
the following text. 


COMPILE 


The cataloged procedure for compilation 
is FORTHC. This cataloged procedure con- 
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Sists of the control statements shown in 
Figure 43 in “Cataloged Procedures." If 
the EDIT option is specified, a SYSUT1 data 
set must be defined as a work data set for 
the compiler; if the compiler XREF option 
is specified, a SYSUT2 data set must be 
defined as a work data set. 


Figure 13 shows control statements that 
can be used to invoke FORTHC. The SYSIN 
data set containing the source module is 
defined as data in the input stream for the 
compiler. Note that a delimiter statement 
follows the FORTRAN source module. 


//jobname JOB 
// EXEC FORTHC 
//FORT.SYSIN DD #* 


nS ge 1 
| FORTRAN Source Module | 
a eae ere ae Pee En a oe Cee OE NCE Te Ea J 
/* 

Figure 13. Invoking the Cataloged Proce- 


dure FORTHC 


Single Compile: A sample deck structure to 
compile a single source module is shown in 
Figure 14. 


//JOBSC JOB 00, FORTRANPROG ,MSGLEVEL=1 
//EXECC EXEC PROC=FORTHC 
//FORT.SYSIN DD * 


a a a a a a aca 1 
| FORTRAN Source Module | 
Bc ee ee J 
/* 

Figure 14. Compiling a Single Source 


Module 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 15. 


//JOBBC JOB 00, FORTRANPROG, MSGLEVEL=1 
J/EXECC EXEC PROC=FORTHC 
//FORT.SYSIN DD * 


ee re en ee ee or eee 1 
| First FORTRAN Source Module | 
Seas arate a ee ee J 
(Se a ee 1 
| Last FORTRAN Source Module | 
Maa ee ee ee J 
/* 

Figure 15. Compiling Several Source 


Modules 
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When several source modules are entered 
in the SYSIN data set for one job step, the 
compiler recognizes the FORTRAN END state- 
ment. If the next card is a delimiter 
statement, control returns to the control 
program at the end of the compilation. If 
the next card is a FORTRAN statement, con- 
trol remains with the FORTRAN compiler. 


COMPILE AND LINK EDIT 


The cataloged procedure to compile 
FORTRAN source modules and link edit the 
resulting object modules is FORTHCL. This 
cataloged procedure consists of the control 
Statements shown in Figure 44 in "Cataloged 
Procedures". 


Figure 16 shows control statements that 
can be used to invoke FORTHCL. 


//jobname JOB 
// EXEC FORTHCL 
//FORT.~SYSIN DD * 


Ce a eg a ge ee 1 
| FORTRAN Source Module | 
Mia eae ie cc wis cc oe ee ee et ie J 
/* 

Figure 16. Invoking the Cataloged Proce- 


dure FORTHCL 


LINK EDIT AND EXECUTE 


The cataloged procedure to link edit 
FORTRAN object modules and execute the 
resulting load module is FORTHLG. This 
cataloged procedure consists of the control 
statements shown in Figure 45 in “Cataloged 
Procedures". 


Figure 17 shows control statements that 
can be used to invoke FORTHLG. 


//jobname JOB 
// EXEC FORTHLG 
//ULKED.SYSIN DD * 


Figure 17. Invoking the Cataloged Proce- 


dure FORTHLG 


A sample deck structure to link edit and 
execute, aS one load module, several object 
modules entered in the input stream is 
shown in Figure 18. 
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The object module decks were created by 
the DECK compiler option. The linkage edi- 
tor recognizes the end of one module and 
the beginning of another, and resolves 
references between them. 


//JOBBLG JOB 00,FORTPROG, MSGLEVEL=1 
//EXECLG EXEC PROC=FORTHLG 
//GKED.SYSIN DD * 


/ * 


Data | 
Da es ee ee J 
/* 

Figure 18. Link Edit and Execute 


A sample deck structure is shown in 
Figure 19 to link edit and execute, as one 
load module, object modules that are mem- 
bers of the cataloged sequential data set, 
OBJMODS, which resides on a tape volume. 

In addition, a data set in the input streain 
is processed using the SYSIN data set. 


//JOBBLG JOB 00,FORTPROG, MSGLEVEL=1 
S/EXECLG EXEC FORTHLG 

//GKED.SYSIN DD DSNAME=OBJMODS, DISP=OLD 
//GO.SYSIN DD * 


a a aa a a a 1 
| Data | 
EEN a a ee ae cana aE RN eT J 
/* 

Figure 19. Link Edit and Execute Object 


Modules in a Cataloged Data Set 


COMPILE, LINK EDIT, AND EXECUTE 


The fourth cataloged procedure, 
FORTHCLG, passes a source module through 
three procedure steps - compile, link edit, 
and execute. This cataloged procedure con- 
Sists of the control statements shown in 
Figure 46 in "Cataloged Procedures." 


Figure 20 shows. control statements that 
can be used to invoke FORTHCLG. 


//jyooname JOB 
// EXEC PROC=FORTHCLG 
//FORT.SYSIN DD * 


a are ge ee SO a eS 1 
| FORTRAN Source Module | 
Ba a ca ae J 
/* 

Figure 20. Invoking the Cataloged Proce- 


dure FORTHCLG 


Single Compile, Link Edit, and Execute: 
Figure 21 shows a sample deck structure to 


compile, link edit, and execute a single 
source module. 


//JOBSCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECC EXEC FORTHCLG 
//FORT.~SYSIN DD * 


er ee ee 1 
| FORTRAN Source Module | 
he ee 4 
/* 

//GO.SYSIN DD * 
ee ae ee 1 
| Data | 
a a en J 
/* 

Figure DAL, Single Compile, Link Edit, and 


Execute 


Batched Compile, Link Edit, and Execute: 
Figure 22 shows a sample deck structure to 


batch compile, link edit, and execute a 
FORTRAN main program and its subprograms. 
The source modules are placed in the input 
stream along with a data set that is read 
using the SYSIN data set. 


7/JOBBCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECCLG EXEC FORTHCLG 
//FORT.SYSIN DD * 


es eee eerste Ree EG Sey eeene oP eNom Re Sea J 
ae ey ee et a 1 
| Last FORTRAN Source Module | 
Ga a eee J 
/* 

//GO.SYSIN DD * 

a ey ae 1 
| Data | 
Se a ee PS Cc ee ge oe Oe As MEE ON en Ot ey ee REP J 
/* 

Figure 22. Batched Compile, Link Edit, and 


Execute 


COMPILER PROCESSING 


The names for DD statements (ddnames) 
relate I/O statements in the compiler with 
Gata sets used by the compiler. These 
ddnames must be used for the compiler. 

When the system is generated, names for I/O 
device classes are also established and 
must be used by the programmer. 


Compiler Name 


The program name for the compiler is 
IEKAA0O0. If the compiler is to be executed 
without using the supplied cataloged proce- 
dures, an EXEC statement of the form 


// EXEC PGM=IEKAAO0O 


must be used. (For more information on 
procedures and options in coding IEKAAOO, 
refer to Appendix A, “Invoking the FORTRAN 
Compiler.") | 


Compiler ddnames 


The compiler can use seven data sets. 
To establish communication between the com- 
piler and the programmer, each data set is 
assigned a specific ddname. Each data set 
has a specific function and device require- 
ment. Table 2 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


To compile a FORTRAN source module, two 
of these data sets are necessary -- SYSIN 
and SYSPRINT, along with the direct access 
volume(s) that contains the operating sys- 
tem. However, with these two data sets, 
only the source listing is generated by the 
compiler. If a structured source listing 
is to be generated, a SYSUT1 DD statement 
must be supplied. If a cross reference 
listing is to be generated by the compiler, 
a SYSUT2 DD statement must be supplied. If 
an object module is to be punched and/or 
written on a direct access or magnetic tape 
volume, a SYSLIN and/or SYSPUNCH DD state- 
ment must be supplied. 


For the DD statements SYSIN, SYSABEND, 
SYSUDUMP, Or SYSPRINT, an intermediate 
storage device may be specified instead of 
the card reader or printer. The intermedi- 
ate storage device can be magnetic tape or 
a direct access device. 
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If an intermediate device is specified Compiler Device Classes 
for SYSIN, the compiler assumes that the 
source module deck was written on interme- 


diate storage by a previous job or job Names for input/output device classes 
step. If an intermediate device is speci- used for compilation are also specified by 
fied for SYSPRINT, the map, listing, and the operating system when the system is 
error/warning messages are written on generated. The class names, functions, and 


intermediate storage; a new job or job step types of devices are shown in Table 3. 
can print the contents of the data set. 


When the SYSPRINT data set is written on | The data sets used by the compiler must 
intermediate storage, carriage control be assigned to the device classes listed in 
characters are placed in the records. Table 4. 


a ; 
iddname | FUNCTION | DEVICE REQUIREMENTS | Compiler Data Set Assumptions 

Sa a Ne | 

|SYSIN [reading the]ecard reader | 

| | source | eintermediate | Standard assumptions are made for the 

| | program | storage | DCB parameter of the data sets used by the 
pa —-———— f+ + fe 4 compiler. Table 5 contains the values set 
|SYSUT1 |work data |edirect access for logical record length, record format, 

| jset for the|emagnetic tape | and blocksize. Of these, only the value 

| {structured | | for blocksize may be overridden with a DD 

| | source | | statement. 

| Jlisting | | 

<n i $--- of 

{|SYSUT2 |work data |edirect access | In addition, the programmer may specify 
| [set for the|]emagnetic tape | the number of buffers to be used for the 

| | compiler | | compiler data sets. If this information is 
| |cross | | missing, the queued sequential access 

| |reference | | method (QSAM) default is used. This 

| J listing | default is three buffers for an IBM 2540 
~——~——~———-~—+4-—-—-—-~—-——-—-—-—4----—--- -- ~~ - + 4 card read punch and two buffers for all 

| SYSABEND|writing the|eprinter | other devices. 

| or }dump for an|*intermediate | 

| SYSUDUMP | abnormal | storage. | 

| {termination | | Table 3. Device Class Names 
~--~-~--}~----------}-------------------- { 0 pron n--=---y---------------1-------- === 
| SYSPRINT | writing | eprinter | iCLASS NAME | CLASS FUNCTIONS | DEVICE TYPE | 
| Jjthe storage|*intermediate | }——~—~—~—-—-—-— 4+—~—~—~—~—---~------ 4-—----~-------- { 
| jmap, | storage | |SYSSQ |writing, |*emagnetic tape| 
| [listing, | | | |reading, {|edirect access| 
| [label map, | | | | backspacing | | 
| jand | | | (sequential) | | 
| |messages | |  ---------4--------------- +-—-~---------- : 
-+-~—-~——— 4—~~——~~——-—~—~—~—4-—-——~—----—-—~—~—~—--—~~-—-~—-— |SYSDA |writing, |edirect access| 
| SYSPUNCH | punching |*card punch? | | |reading, | | 
| Jthe object |edirect access | | | backspacing, | | 
| |module deck|e*magnetic tape | | jupdating | | 
—————-~—-—+4-——-—~--~—-—--—}--~-----—------------- { {records in | | 
|SYSLIN |output data|edirect access | | [place (direct) | | 
| |set for the|emagnetic tape | -}---------- 4———~—~—~—~-—-——~-~—-~-~-~-- 4+—-—-~—~~-—----—---- 4 
jobject | ecard puncht | |SYSCP Jpunching cards |ecard punch | 
| | module, used | | -}-----—-—---—+--—------------- 4+-----~-------- 5 
| jas input to| | JA |SYSOUT output |eprinter | 
| {the linkage] | | |emagnetic tape| 
| |editor | | = f---------- $--------------- $-------------- : 
-———————— 1——————————— 4-———~———————————~~—~—~—~—~- | |B |SYSOUT card [ecard punch | 
|4These must not be the same card punches. | | jimage output | emagnetic ssn She 
ER eater ne RE rele ei pen a me Pe en ey ee J  ASeatnenn ovate pee a (year epee Peer ere ener ETE a ee eee ey ee 
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Correspondence Between Compiler 
ddnames and Device Classes 


(Raa ee tas sages Sa GSE Ss SISA 71 
| 


ddname |Possible Device Classes | 
a aN a ee ee ee 4 
|SYSIN |SYSSQ,or the input stream device] 
| | (specified by DD * or DD DATA), | 
| jor a device specified as the | 
| [card reader | 
a ee ee | 
|SYSUT1 |SYSSQ | 
Ba en a eae ee 4 
|SysuT2 |sSyYssoQ | 
}-------- }-------------------------------- { 
| SYSABEND|A, SYSSQ | 
[| or | | 
| SYSUDUMP | | 
}-------- 4~~-------------------~---------- 4 
| SYSPRINT|A, SYSSQ | 
naan ant ~a~2- ~~~ == === ~~ === 
| SYSPUNCH]| B, SYSCP1, SYSSQ, SYSDA | 
|~-------}--~----------------------------- { 
|SYSLIN |SYSSQ,SYSDA,SYSCP1 | 
}-------- 4—----~-~~-~--~~------------------ { 
|24SYSPUNCH and SYSLIN must not be assigned | 
| to the same card punch. | 
ESE ne erate ae an reer ae mate epee NOE es er LN oe Rad eNO Tae J 


Table 5. DCB Assumptions for the Compiler 
Data Sets 
Ga re fo ee : aan ae Ror ae 
| ddname | LRECL | RECFM | BLKSIZE1 | 
}----------+---------- +-------- +------ ----4 
| SYSIN | 80 | FB | 80 | 
|--------— $---------- +-------- $---------- { 
| SYSPRINT | 137 | VBA | 141 | 
}---------- $---------- +-------- +---------- | 
| SYSLIN 80 | FB | 80 | 
}---------- $---------- +-------- +---------- { 
| SYSUT1 105 | FB | 105 | 
}---------- $---------- +~------- 4$---------- 
| SYSUT2 {1024-40962| FB }1024-40962 | 
}---------- {---------- +-------- $---------- { 
| SYSPUNCH | 80 | FB | 80 | 
sugeereb esata teak cca ase eee ase eee 


!4This value may be increased by overrid- | 
| ing the present value in the associated | 
| DD statement. | 
}2The value is within this range. The | 
actual value is calculated during execu-| 
tion. The size of one of the tables | 
used by the compiler (the address con- | 
stant table) is compared with the track-| 
Size of the device specified by SYSUT2, | 
and the LRECL and BLKSIZE fields are | 
equated to the smaller value. If the | 
BLKSIZE subparameter of the DCB paramet- | 
er is specified on the SYSUT2 card, it | 
must be an integral multiple of the | 
value chosen by the compiler for LRECL. | 


[ee ee ee ee ee ee 


Compiler Options 


Options may be passed to the compiler 
through the PARM parameter in the EXEC 
Statement (see Figure 23). The following 
information may be specified: 


1. Type of optimization, if any, desired 
by the programmer. 


2. Name assigned to the program. 


3. Number of lines per page for the 
source listing. 


4. Whether an object module listing is 
printed. 


5. Whether the source module is coded in 
Binary Coded Decimal (BCD) or Extendeu 
Binary Coded Decimal Interchange Code 
(EBCDIC). 


6. Whether a list of source statements, 
with their associated internal state- 
ment numbers, is printed. 


7. #jWhether an object module is punched. 


8. Whether a table of names and a table 
of labels, which appear in the source 
module, are printed. 


9. Whether the compiler writes the object 
module on external storage for input 
to the link editor. 


10. Whether calls and function references 
are identified with an internal state- 
ment number. 


11. Whether a structured source listing is 
printed. 


12. Whether a cross reference listing is 
printed. 


There is no specified order for compiler 
options in the PARM parameter. 
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ee 


Se re are rr een ee 





, MAP | 1EOBD \ ,iD 
,NOMAP/ | ,NOLOADS |, NOID 


| | 
| | 
| | | 
| ee ee \ {+ SOURCE ie eeess \ | | 
l , NOLISTS l, EBCDICS |, NOSOURCES |, NODECK | 
| | 
| | 
| | 


,EDIT \ , XREF | 
»NOEDITS),NOXREFf )1 2 3 


[2I1f the information specified contains blanks, parentheses, or equal signs, it must be 
| delimited by apostrophes instead of parentheses. 


| equal signs, the delimiting parentheses or apostrophes may be omitted. 
|3The maximum number of characters allowed between the delimiting apostrophes or paren- 


| 
}2If only one option is specified and it does not contain any blanks, parentheses or | 
| 
| 
| 


| theses is 40. 


Figure 23. Compiler Options 


OPT={0|1]| 2} 


The OPT=0 option indicates that the com- 
piler uses no optimizing techniques in pro- 
ducing an object module. The OPT=1 option 
indicates that the compiler treats each 
source module as a single program loop and 
optimizes the loop with regard to register 
allocation and branching. The OPT=2 option 
indicates that the compiler treats each 
source module as a collection of program 
loops and optimizes each loop with regard 
to register allocation, branching, common 
expression elimination, and replacement of 
redundant computations. The options OPT=1 
and OPT=2 are described in more detail in 
the section "Programming Considerations". 


Name=xxxXxxx 


The NAME option specifies the name 
(xxxxxx) assigned to a module (main program 
only) by the programmer. If NAME is not 
specified or the main program is not the 
first module in a compilation, the compiler 
assumes the name MAIN for the main program. 
The name of a subprogram is always the name 
specified in the SUBROUTINE or FUNCTION 
statement. 


The name appears in the source listing, 
map, and object module listing. (See "Mul- 
tiple Compilation Within a Job Step" in 
this section for additional considerations 
concerning the NAME option.) 


LINECNT=xx 


The LINECNT option specifies the maximum 
number of lines (xx) per page for a source 
listing. If LINECNT is not specified, a 
default of 50 lines per page is provided. 
(The LINECNT option is effective only at 
compile time.) 
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The PARM parameter cannot occupy more than one card. 


LIST or NOLIST 


The LIST option indicates that the 
object module listing is written in the 
data set specified by the SYSPRINT DD card. 
(The statements in the object module list- 
ing are in a pseudo assembly language for- 
mat.) The NOLIST option indicates that no 
object module listing is written. A 
description of the object module listing is 
given in the section “System Output." 


RCD or EBCDIC 


The BCD option indicates that the source 
module is written in Binary Coded Decimal; 
EBCDIC indicates Extended Binary Coded 
Decimal Interchange Code. Intermixing of 
BCD and EBCDIC in the source module is not 
allowed. 


Notes: 


1. If the EBCDIC option is selected, 
statement numbers passed as arguments 
must be coded as 


én 


However, if the BCD option is 
selected, statement numbers passed as 
arguments must be coded as 


$n 


and the $ must not be used as an. 
alphabetic character in the source 
module. 


(The n represents the statement 
number. ) 


2. The compiler does not support BCD 
characters either in literal data or 
as print control characters. Such 
characters are treated as EBCDIC. 
Consequently, a BCD +, for example, 
used aS a carriage control character 
will not cause printing to continue on 
the same line. Programs keypunched in 
BCD, therefore, should be carefully 
screened if errors relating to literal 
data and print control characters are 
to be avoided. 


SOURCE Or NOSOURCE 


The SOURCE option specifies that the 
source listing is written in the data set 
specified by the SYSPRINT DD statement. 
The NOSOURCE option indicates that no 
source listing is written. A description 
of the source listing is given in the sec- 
tion “System Output." 


DECK or NODECK 


The DECK option specifies that an object 
module card deck is punched as specified by 
the SYSPUNCH DD statement. The object 
module deck can be used as input to the 
linkage editor in a subsequent job. NODECK 
specifies that no object module deck is 
punched. A description of the deck is 
given in the section "System Output." 


MAP or NOMAP 


The MAP option specifies that a table of 
names and a table of labels are written in 
the data set specified by the SYSPRINT DD 
statement. These tables include those 
names and labels which are generated by the 
compiler as well as those which appear in 
the source module. The NOMAP option speci- 
fies that no tables are written. A de- 
Scription of the tables is given in the 
section "System Output." 


LOAD or NOLOAD 


The LOAD option indicates that the 
object module is written in the data set 
specified by the SYSLIN DD statement. This 
option must be used if the cataloged proce- 
dure to compile and link edit, or to com- 
pile, link edit, and execute is used; i.e., 
the object module is used as input to the 
linkage editor in the current job. The 
NOLOAD option indicates that the object 
module is not written on external storage. 
This option can only be used if the cata- 
loged procedure to compile is used. 


ID or NOID 


The ID option specifies that the 
generated code is to contain an identifier 
for the compiler-assigned internal state- 
ment number associated with each function 
reference or CALL statement. When ID is 
specified, the internal statement numbers 
appear in the diagnostic traceback provided 
for execution-time errors. (A description 
of the traceback iS given in the section 
"System Output.") The NOID option specifies 
the omission of the identifiers in the 
object program. 


EDIT or NOEDIT 


The EDIT option specifies that a struc- 
tured source listing is written in the data 
set specified by the SYSPRINT DD statement. 
This listing indicates the loop structure 
and the logical continuity of the source 
program. If this option is used, OPT=2 
must be specified and a DD statement with 
the name SYSUT1L must be supplied. The 
NOEDIT option specifies that no structured 
source listing is written. A description 
of the structured source listing is given 
in the section “System Output." 


XREF Or NOXREF 


The XREF option specifies that a cross 
reference listing of variables and labels 
is written in the data set specified by the 
SYSPRINT DD statement. This listing indi- 
cates the internal statement number of 
every statement in which a variable or 
label is used. If this option is speci- 
fied, a DD statement with the name SYSUT2 
must be supplied. The NOXREF option speci— 
fies that no cross reference listing is 
written. A description of the compiler 
cross reference listing is given in the 
section "System Output." 


Note: The default compiler options shown 
in this publication are standard IBM 
defaults; nowever, during system genera- 
tion, an installation can choose its own 
set of default options. 


Multiple Compilation Within a Job Step 


Several compilations may be performed 
within one job step. The compiler recog- 
nizes the FORTRAN END statement in a source 
module, compiles the program, and deter- 
mines if another source module follows the 
END statement. If there is another source 
module, another compilation is initiated 
(see Figure 24). 


FORTRAN Job Processing 35 


poorer on + 
{|//JOBRA JOB ,‘FORTRAN PROG‘ 


|//STEP1 EXEC FORTHC 
|//FORT.SYSIN DD * 
1 READ (8,10)A,B,C 


| 

| : 

| % 

| - 

l END 
| SUBROUTINE CALC 
| 

| 

| 

| 
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Multiple Compilation Within a 
Job Step 


Figure 24. 


Only one EXEC statement may be used to 
initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations in a job step. 


In a multiple compilation, only the 
first program (if it is a main program) is 
given the name specified in the NAME 
option; all subsequent main programs are 
given the name MAIN. If the first program 
is a subprogram, the name specified in the 
NAME option is not used. If the NAME | 
option is not specified, all main programs 
in a multiple compilation are given the 
name MAIN. For example, in the multiple 


compilation, 
//MULCOM JOB | 
// EXEC FORTHC, PARM. FORT=' NAME=IOR'‘ 
//FORT.SYSIN DD * | 7 
READ (1,10) ALP, BETA 
END 


SUBROUTINE INVERT(A,B) 


END | 
READ (5)P,Q,R 


END 
/* 


the first main program is given the name 
IOR; the third program is given the name 
MAIN. The second program is assigned the 
name INVERT. 


When a multiple compilation is per- 
formed, the SYSLIN data set contains all 
the object modules, because only one SYSLIN 
DD statement may be supplied for compiler 
output. If tape or direct access output is 
specified for the compiler, the object 
modules are written sequentially on the 
volume. 
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LINKAGE EDITOR PROCESSING 


The linkage editor processes FORTRAN 
object modules, resolves any references to 
Subprograms, and constructs a load module. 
To communicate with the linkage editor, the 
programmer supplies an EXEC statement and 
DD statements that define all required data 
sets; he may also supply linkage editor 
control statements. 


Linkage Editor Name 


The program name for the linkage editor 
is IEWL. If the linkage editor is executed 
without using cataloged procedures, an EXEC 
statement of the form 


// EXEC PGM=IEWL 


must be used. 


Linkage Editor Input and Output 


There are two types of input to the 
linkage editor: primary and secondary. 


Primary input is a sequential data set 
that contains object modules and linkage 
editor control statements. (A member of a 
PDS cannot be the primary input.) Any 
external references among object modules in 
the primary input are resolved by the link- 
age editor as the primary input is proc- 
essed. Furthermore, the primary input can 
contain references to the secondary input. 
These references are linkage editor control 
Statements and/or external references in 
the FORTRAN modules. 


Secondary input resolves the references 
and is separated into two types: automatic 
call library and additional input specified 
by the programmer. The automatic call 
library should always be the FORTRAN 
library (SYS1.FORTLIB), which is the PDS 
that contains the FORTRAN library subpro- 
grams. Through the use of DD statements 
the automatic call library can be concate- 
nated with other partitioned data sets. 
Three types of additional input may be 
specified by the programmer: 


An object module used as the main pro- 
gram in the load module being con- 


structed. This object module, which 
can be accompanied by linkage editor 
control statements, is either a member 
of a PDS or’is a sequential data set. 
The first record in the primary input 
data set must be a linkage editor 
INCLUDE control statement that tells 
the linkage editor to insert the main 
program. 


e An object module or a load module used 
to resolve external references made in 
another module. The object module, 
which can be accompanied by linkage 
editor control statements, is a sequen- 
tial data set or is a member of a PDS. 
The load module, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
statement that defines the data set 
must be given. 


e A module used to resolve external 
references made in another module. The 
load module or object module, which can 
be accompanied by linkage editor con- 
trol statements, is a member of PDS. A 
linkage editor LIBRARY control state- 
ment that defines the data set to the 
linkage editor must be given. 


In addition, the secondary input can con- 
tain external references and linkage editor 
control statements. The automatic call 
library and any of the three types of addi- 
tional input may be used to resolve | 
references in the secondary input. 


The load module created by the linkage 
editor is always placed ina PDS. Error 
messages and optional diagnostic messages 
are written on intermediate storage or a 
printer. In addition, a work data set is 
required by the linkage editor to do its 
processing. Figure 25 shows the I/O flow 
in linkage editor processing. 





SYSUT 1 
SYSLIB Work SYSLMOD 
Data Set 

Automatic Output 

Call Module 

Library Library 

SYSLIN 

Primary Linkage 
Input Editor 


Diagnostic 
Data Set 


Additional 


Libraries 





SYSPRINT 


Figure 25. Linkage Editor Input and Output 


Linkage Editor ddnames and Device Classes 


The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific 
ddnames (similar to the ddnames used by the 
compiler). The ddnames, functions, and 
requirements for data sets are shown in 
Table 6. 


Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data sets. 
(Additional inputs are partitioned data 
sets or sequential data sets.) The ddname 
for the DD statement that retrieves any 
additional libraries is written in INCLUDE 
and LIBRARY statements and is not fixed by 
the linkage editor. 


Table 6. Linkage Editor ddnames 

ee aaa cc aa aaa aa ay aaa a a a | 
| ddname | FUNCTION {| DEVICE REQUIREMENTS | 
~------------- 4-------------------------------------------}-+----------=----------------4 
|SYSLIN {primary input data, normally the output of |edirect access | 
| |the compiler | *magnetic tape | 
| | }ecard reader | 
}-------------- 4------------------------------------------- 4---------------------------- 
| SYSLIB jautomatic call library (SYS1.FORTLIB) |edirect access | 
~------------- 4-------------------------------------------}----------------------------| 
| SYSUT1 Jwork data set |edirect access | 
----------—--- $------------------------------ == --- === $= f+ --- 5 ------ 
| SYSPRINT |diagnostic messages | eprinter | 
| | Jeintermediate storage device| 
}-------------- 4------------------------------------------- }---------------------------- 
| SYSLMOD joutput data set for the load module {| direct access | 
}-------------- 4-------------------------------------------4---------------------------- { 
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The device classes used by the compiler 
(see Table 3) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to the 
device classes listed in Table 7. 





Table 7. Correspondence Between Linkage 
Editor ddnames and Device 
Classes 

| ddname |Possible Device Classes | 
}~-------------}-------------------------- { 
|SYSLIN |SYSSQ,SYSDA,or the input | 
| |stream device (specified | 
| |by DD * or DD DATA), or a| 
| |device specified as the | 
| Jcard reader | 
eres Se a 4 
| SYSLIB |SYSDA | 
manne - - -- f -- - -- - - -- - - -- --- - - +--+ -----| 
| SYSUT1 | SYSDA | 
i aD te 4 
| SYSLMOD |SYSDA | 
he a Ns AI ke 4 
| SYSPRINT |A, SYSSQ | 
}-------------- 4~------------------------- { 
Peet rere ee ler eres SYSSQ | 
Rae Pat on ee RR eee eNO FRR tered ae ea ea CRON en EO LR EN ater J 


Additional Input 


The INCLUDE and LIBRARY statements are 
used to specify additional secondary input 
to the linkage editor. Modules neither |. 
specified by INCLUDE or LIBRARY statements 
nor contained in the primary input are 
retrieved from the automatic call library. 


INCLUDE Statement: 


le ree Mera ee ee ye re ee 
loperatioaloperana | 
--------- $------------------------------- 
J INCLUDE |ddnamel[ (member-name | 
| | {,member-name]...)] | 
| | [,ddname[ (member-name | 
| | C,member-name]...)J]]... | 
boas SSius DI soc ch ear he Si J 


The INCLUDE statement is used to include 
either members of additional libraries or a 


sequential data set. The “ddname"™ speci- 
fies a DD statement that defines either a 
library containing object modules and con- 
trol statements or just load modules, or 
defines a sequential data set containing 


object modules and control statements. The 
"member name" is not used when a sequential 


data set is specified. 
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The linkage editor inserts the object 
module or load module in the output load 
module when the INCLUDE statement is 
encountered. 


LIBRARY Statement: 


SrA Ee a a aa Re | 
lGperation| operand | 


4 
| | 
| €,member-name]...) | 
| (,ddname (member-name | 
| {,member-name]...)]... | 
1 


The LIBRARY statement is used to include 
members of additional libraries. The 
"ddname" must be the name of a DD statement 
that specifies a library that contains 
either object modules and linkage editor 
control statements, or just load modules. 
The "member name" is an external reference 
that is unresolved after primary input proc- 
essing is complete. 


The LIBRARY statement differs from the 
INCLUDE statement: external references 
specified in the LIBRARY statement are not 
resolved until all other processing, except 
references reserved for the automatic call 
library, is completed by linkage editor. 
(INCLUDE statements resolve external 
references when the INCLUDE statement is 
encountered. ) 


Example: Two subprograms, SUBi and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIB, 
is used to resolve external references to 
the symbols X, Y, and Z. Each of the 
object modules is placed in a sequential 
data set by the compiler, and passed to the 
linkage editor job step. 


Figure 26 shows the control statements 
for this job. (Note: Cataloged procedures 
are not used in this job.) In this job, an 
additional library, MYLIB, is specified by 
the LIBRARY statement and the ADDLIB DD 
statement. SUB1 and SUB2 are included in 
the load module by the INCLUDE statements 
and the DD statements DD1 and DD2. The 
linkage editor input stream, SYSLIN, is two 
concatenated data sets: the first data set 
is the sequential data set &GOFILE which 
contains the main program; the second data 
set is the two INCLUDE statements and the 
LIBRARY statement. After linkage editor 
execution, the load module is placed in the 
PDS PROGLIB and given the name CALC. 


MEE 


//SYSLIB DD 
//SYSUMOD DD 
//ADDLIB DD 


//DD1 DD 
7/DD2 DD 
//SYSLIN DD 
// DD * 


INCLUDE DD1 
INCLUDE DD2 


LIBRARY ADDLIB(X, Y, Z) 


Figure 26. Linkage Editor Example 


Linkage Editor Priority 


If modules with the same name appear in 
the input to linkage editor, the linkage 
editor inserts only one of the modules. 
The following priority for modules is es- 
tablished by the linkage editor: 


1. Modules appearing in SYSLIN or modules 
identified by INCLUDE statements. 


2. Modules identified by the LIBRARY 
statement. 


3. Modules appearing in SYSLIB. 


For example, if a module named SIN 
appears both in a module identified in an 
LIBRARY statement and in the automatic call 
library, only the module identified in the 
LIBRARY statement is inserted in the output 
load module. | 


PGM=IEKAA00, PARM="NAME=MAIN, LOAD* 
DSNAME=&GOFILE, DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM="NAME=SUB1, LOAD‘ 
DSNAME=€ SUBPROG1 , DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM='NAME=SUB2, LOAD‘ 


DSNAME=&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ 


DSNAME=SYS1.FORTLIB, DISP=OLD 
DSNAME=PROGLIB (CALC) , UNIT=SYSDA 
DSNAME=MYLIB, DISP=OLD 
DSNAME=*.STEP2.SYSLIN, DISP=OLD 
DSNAME=*.STEP3.SYSLIN, DISP=OLD 
DSNAME=*.STEP1.SYSLIN, DISP=OLD 


poo pe ee ee ep ne Gene eae) Bo ae eet eee ee Te Og eg TACO Gt ie Tn ca oe bees ater 
4 /IOBX JOB 

| //STEPI1 EXEC 

| 

| ; 

| 

| //SYSLIN DD 

| //SYSIN DD * 

| Source module for MAIN 
| /* 

| //STEP2 EXEC 

| ; 

| ; 

| 

| //SYSLIN DD 

| //SYSIN DD * 

| Source module for SUB1 
| is 

| //STEP3 EXEC 

| ‘ 

| ‘ 

| 

| //SYSLIN DD 

| //SYSIN DD * 

| Source module for SUB2 
| i* 

| //STEPY EXEC PGM=LIEWL 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

L 


Aha cee cern cee cemene cers cee cme cee ss Ma cane Som cee ees coe ee eee ce ee cme ree ee cee ce cee meee ce me me cm ee ee es ee ee eee cee eee ae ol 


If modules with the same name appear in 
a single data set, only the module encoun- 
tered first is inserted in the output load 
module. 


Other Linkage Editor Control Statements 


In addition to the LIBRARY and INCLUDE 
statements, other control statements are 
available for use with the linkage editor. 
These statements enable the user to: spec- 
ify different names for load modules 
(ALIAS), replace modules within a load 
module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 
In addition, two statements (OVERLAY and 
INSERT) enable the programmer to overlay 
load modules. For a detailed description 
of these control statements, see the Link- 
age Editor publication. 
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Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
most applicable to the FORTRAN programmer 
are: 


eee \ ee | 
PARM. procstepf=(LXREF] [, LET] [,NCAL] 


[, LIST]) 


MAP or XREF 


The MAP option informs linkage editor to 
produce a map of the load module; this map 
indicates the relative location and length 
of main programs and subprograms. If XREF 
is specified, a map of the load module is 
produced and a cross reference list indi- 
cating all external references in each main 
program and subprogram is generated. The 
map Or map and cross reference list are 
written in the data set specified by the 
SYSPRINT DD statement. If neither option 
is specified, no map or cross reference 
listing is generated. Descriptions of the 
map and cross reference listing are given 
in "System Output." 


LET 


The LET option informs the linkage edi- 
tor to mark the load module executable even 
though error conditions, which could cause 
execution to fail, have been detected. 


NCAL 


The NCAL option informs linkage editor 
that the libraries specified in the SYSLIB 
DD statement or specified in LIBRARY state- 
ments are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) The subprograms in the 
libraries are not inserted in the load 
module; however, the load module is marked 
executable. 


LIST 


The LIST option indicates that linkage 
editor control statements are listed in 
card-image format in the diagnostic output 
data set specified by the SYSPRINT DD 
statement. 


Other options can also be specified for 
the linkage editor. For a detailed de- 
Scription of all linkage editor options, 
see the Linkage Editor publication. 
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LOAD MODULE EXECUTION 


The ddnames used in executing load 
modules must meet the format specified by 
IBM. : 


When the system is generated, device 
names are assigned by the operating system 
and the installation; the programmer 
chooses devices by specifying either the 
installation or operating system names. 


Program Name 


When "PGM=program name" is used to indi- 
cate the execution of a load module, the 
module must be in either the system library 
(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a JOB- 
LIB DD statement must be supplied to indi- 
cate the name of the private library. For 
example, assume that the load modules CALC 
and ALGBRA in the library MATH and the load 
module MATRIX in the library MATRICES are 
executed in the following job: 


//JOBN JOB 00, FORTPROG 

//JOBLIB DD DSNAME=MATH, DISP=(OLD, PASS) 
// DD DSNAME=MATRICES, DISP= (OLD, PASS) 

//STEP1 EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library, by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


Execution ddnames 


In the source module, data set reference 
numbers are used to identify data sets. 
Data sets processed by a FORTRAN load 
module must be defined by DD statements. 
The correspondence between a data set 
reference number and a DD statement is made y 
by a ddname. X 


The ddname format that must be used for 
load module execution is 


FTXXF yyy 


where xx is the data set reference number, 
and yyy is a FORTRAN sequence number. 


Data Set Reference Number (xx): When the 
system is generated, the upper limit for 
data set reference numbers is specified by 
the installation; it must not exceed 99. 
This upper limit does not correspond to the 
number of input/output devices. 


If an installation specifies an upper 
limit of 99 for its data set reference num- 
bers, the ddnames and data set reference 
numbers correspond as shown in Table 8. 
Note that 0 1S not a valid data set 
reference number. 


Table 8. Load Module ddnames 

a aa aed Yee ee 1 
| Data Set Reference Numbers | ddnames | 
;HoS SSeS Sse eo e Se SaaS ee ee 7 Sia mata { 
| 1 | FTO1Fyyy | 
| 2 | FTO2Fyyy | 
| . | : | 
| . | : | 
| : | . | 
| 13 | FT13Fyyy | 
| . | . | 
| : | . | 
| : | . | 
| 99 | FT99Fyyy | 
ae ae A OER Re OO a SR I ler Ca atte ee IE Poe wae ees hte J 


FORTRAN Sequence Number (yyy): The FORTRAN 


sequence number is used to refer to sepa- 
rate data sets that are read or written 
uSing the same data set reference number. 
For the first data set, the sequence number 
is 001; for the second 002; etc. This 
sequence number is incremented when (1) an 
END FILE statement is executed and a subse- 
quent WRITE is issued with the same data 
set reference number or (2) the "END=" exit 
is taken following a READ and a subsequent 
READ or WRITE is issued with the same data 
set reference number. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, WRITE sequence occurs. If the FOR- 
TRAN statements in the following example 
are executed, DD statements with the 
ddnames indicated by the arrows must be 
supplied for the corresponding WRITE 
statements. 


Statements ddnames 
15 FORMAT (3F10. 3,17) 
10 FORMAT (3F10. 3) 

DO 20 I=1,Jd 


20 WRITE(17,10)A,B,C —---------- > FT17F001 


END FILE 17 
DO 30 I=1,N 


30 WRITE(17,15)X,Y,Z,K —-------- > FT1I7F002 
END FILE 17 
DO 40 I=1,M, 2 


4Q WRITE(17,10)A,B,C ~——--~-—-—------ > FT1I7F003 


END FILE 17 


Reference Numbers for Data Sets Specified 
in DEFINE FILE Statements 


The characteristics of any data set to 
be used during a direct access input/output 
operation must be described by a DEFINE 
FILE statement. 


The data set reference number specified 
in any DEFINE FILE statement may refer to 
only one data set. In other words, the 
method described previously concerning 
references to separate data sets that are 
read or written using the same data set 
reference number is prohibited. For 
example, the statement 


DEFINE’ FILE 2(50,100,1L,12) 


establishes a data set reference number of 
02. All subsequent input/output statements 
must refer to only one data set with the Db 
name Of FTO2F001. (For a more detailed 
explanation of the DEFINE FILE statement, 


refer to the FORTRAN IV Language 
publication.) 


If the preceding instructions are used 
to write a tape, the output tape (unla- 
beled) has the appearance shown in Figure 
21 
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Retrieving Data Sets Written With Varying 
FORTRAN Sequence Numbers 


To retrieve the data sets shown in 
Figure 27, the data set sequence number in 
the LABEL parameter must be supplied in the 
DD statement. The LABEL parameter is de- 
scribed in detail in the section “Creating 
Data Sets." 


,NL 
sepa stiaucs tse ean neue a 


The "data set sequence number" indicates 
the position of the data set on a sequen- 
tial volume. (This sequence number is 
cataloged.) For the first data set on the 
volume, the data set sequence number is 1; 
for the second, it is 2; etc. 


If one of the data sets shown in Figure 
27 is read in the same job step in which it 
is written, an END FILE statement must be 
issued after the last WRITE instruction. 
If the data set is to be read by the same 
data set reference number, DD statement 
FT17FO004 is used to read the data set. The 
execution of a READ statement following an 
END FILE increments the FORTRAN sequence 
number by 1. For example, the following DD 
statements are used to write the three data 
sets shown in Figure 27 and then read the 
second data set: | 


//¥FTL7F001 DD UNIT=TAPE, LAREL=(, NL) 


//FPT17F002 DD UNIT=TAPE, LABEL=(2,NL), Xx 
4 VOLUME=REF=*.FT17F001 

//FT17F003 DD UNIT=TAPE, LABEL=(3,NL), X 
11 VOLUME=REF=*. FT17F001 

//¥TI7TFOO4 DD VOLUME=REF=*.FT17F002 x 
// DISP=OLD, LABEL=(2,NL), x 
Jf DSNAME=*. FT17F002, UNIT=TAPE 


The VOLUME parameter. indicates that the 
data set resides on the same volume as the 
data set defined by DD statement FT17F001. 
DD statement FT17F004 refers to the data 
set defined by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18; then, the DD 
statement FT17F004 is replaced by the 
statement. 






END Exit: 


//¥FT18F001 DD VOLUME=REF=*.FT17F002, X 
// DISP=OLD, LABEL= (2, NL) 


If the data sets shown in Figure 27 are 
cataloged for the purpose of later reading 
them, and the following DD statements are 
used to write the data sets, 


//¥T17F001 DD DSNAME=N1,LABEL=(1,NL), & 
// DISP=(, CATLG) , UNIT=TAPE, A 
// VOLUME=SER=163K 

//FT17F002 DD DSNAME=N2,LABEL=(2,NL), x 
1/ DISP=(, CATLG) , VOLUME=REF=*.FT17F001 
//¥T17F003 DD DSNAME=N3,LABEL=(3,NL), Xx 
1/ DISP=(, CATLG) , VOLUME=REF=*.FT17F002 


the information necessary to retrieve the 
data sets is the DSNAME, the LABEL, and the 
DISP parameters. For example, if data set 
reference number 10 is used to retrieve 
data set N1, the following DD statement is 
required. 


//*FT1IOFO01 DD DSNAME=N1,DISP=OLD, x 
// LABEL= (, NL) 


If the data set is not cataloged and 
then retrieved ina later job, the VOLUME, 
UNIT, and LABEL information is needed to 
retrieve the data set. When the data set 
is created, the programmer must assign a 
specific volume to it. 


Assume the data sets shown in Figure 27 
were assigned the volume identified by the 
volume serial number Ai1ii111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 in a later job, the 
following DD statement is needed. 


//FT10F001 DD VOLUME=SER=A11111,DISP=OLD, X 
// LABEL=(2, NL) , UNIT=SYSSQ 


Data sets written using the same 
data set reference number can be retrieved 
in the same job or job step by using a 
facility provided in the FORTRAN language - 
the "END=" exit in a READ statement. After 
the last data set is written and the END 
FILE is executed, a REWIND may be issued. 

A subsequent READ using the same data set 
reference number resets the FORTRAN 
sequence number to 001. When the last 
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Figure 27. Tape Output for Several Data Sets Using Same Data Set Reference Number 
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record of a data set has been read, an 
additional READ causes the END exit to be 
taken. On the next READ, the sequence 
number is incremented by 1. The data sets 
shown in Figure 27 can be read by using the 
following sequence of statements. 


Note: The DD statements used to create the 
data sets also suffice for retrieving the 
data sets. No additional DD statements are 
required. 


REWIND 17 


100 READ (17,10, END=200)A,B,C ---->FT17F001 


GO TO 100 


200 READ (17,15, END=300)X, Y, Z,K---->FT17F002 


GO TO 200 


300 READ (17,10, END=350)A,B,C ---->FT17F003 


GO TO 300 


350 REWIND 17 


Concatenation: The data sets shown in 
Figure 27 can be concatenated and read as a 
Single data set. The information necessary 
(assume cataloged data sets) to retrieve 
the data sets is the DSNAME, LABEL, and 
DISP parameters. For example, if data set 
reference number 16 is used to retrieve the 
data sets, the following DD statements are 
required. 


//¥FT16F001 DD DSNAME=N1, DISP=OLD, xX 
1/ LABEL= (, NL) 
1/ DD DSNAME=N2,DISP=OLD, X 
// LABEL= (2, NL) 
1/ DD DSNAME=N3,DISP=OLD, X 
1/ LABEL= (3, NL) 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
by the control program. 


A REWIND statement instructs the control 
program to position the volume on the 


device so that the next record read or 
written is the first record transmitted for 
that data set reference number on that 
volume, irrespective of data set sequence 
numbers. 


The effect of a BACKSPACE statement 
depends upon the record format and the type 
of control used to read or write the record 
(FORMAT control or no FORMAT control). For 
specific information concerning BACKSPACE, 
see "Backspace Operations" in the section 
"Creating Data Sets." 


Error Message Data Set 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages and 
information for traceback, DUMPs, and 
PDUMPsS can be written on a data set. The 
programmer must define a data set, using a. 
DD statement with the ddname for that data 
set reference number. This data set should 
be defined using the SYSOUT=A parameter. 

If the error message data set is on tape, 
the DD statement should contain DCB parame- 
ters for BLKSIZE=133 and RECFM=UA. (The 


publication IBM System/360 Operating Sys- 


tem: System Generation, Form C28-6554, 
explains the method of assigning the data 


set reference number. See the description 
of the OBJERR parameter in the section on 
the FORTLIB macro instruction.) 


Pa 


Execution Device Classes 


For load module execution, the program- 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 3). However, additional names for 
specific devices and device classes can be 
assigned by the installation. The program- 
mer can choose which device to use for his 
data sets, and specify the name of the 
device or class of devices in the UNIT 
parameter of the DD statement. 


DCB Parameter 


The DCB parameter may be specified for 
data sets when a load module is executed. 
For information concerning the DCB paramne- 
ter, see the section "Creating Data Sets." 
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CREATING DATA SETS 


Data sets are created by specifying 
parameters in the DD statement or by using 
a data set utility program. This section 
discusses the use of the DD statement to 
create data sets. (The Utilities publica- 
tion discusses data set utility programs.) 
No consideration is given to optimizing I/O 
operations; this information is given in 
the section “Program Optimization." 


To create data sets, the DSNAME, UNIT, 
VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB 
parameters are Of special Significance (see 
Figure 29). These parameters specify: 


DSNAME - name of the data set 


class of devices used for the 
data set 


UNIT - 
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Figure 28. Examples of DD Statements 
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Sample Coding Form : 


[io C2 30 i=aoaieso YT t-e0 | t-70 dT ia 
1 [21314|51617 1819101 1 12131415]6[7 181910] 11213141516] 7 [8]91o/ | [2]3]4[5]6]7]s|sior [2|314]5[6|7 [s|9]ol | [2]314[5|6171s[9jol |2]3]4]sl617/s[siof [2]/314[5]6|7 [8/910 


ATLG) sLABEL=( SL oEXPDT=67031) 9, | 1, , 
// JUNIT=DACLASS s9VOLUME=(PRIVATE.RETAIN.SER=AAG9)> 2 
i] SPACE= (3609 (1602180).9 sCONTIG9ROUND))9 3 
DCB=(RECFM=VB,LRECL=604,BLKSIZE=4212) 


AWM Dilie t, Creating, ia Data Ge. Oi/1 1B OD, 
//FT89F@G61, DD DSNAME=STEMP> UNI T=(TAPECLS.23)  9DISP=(NEW>PASS )9 1 
/ VOLUME=(9 RETAIN) 1999SER=(,777 588899999444) ) 9 2 


/ 
// DCB= (DEN=2,9RECFM=U »BLKSIZE=2500) | 


// VOLUME=SER=A6@5 | | | 


VOLUME - volume on which the data set 
resides 


LABEL - label specification 


DISP - the disposition of the data set 
after the completion of the job 


step 


SYSOUT - ultimate device for unit record 
data sets 


DCB - tape density, record format, 


record length 


Examples of DD statements used to create 
data sets are shown in Figure 28. 
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ds name 1 
\ DSNAME=. dsname(element)t 
&name \ 
] L&name(element) 
DUMMY 


DDNAME=ddname 


UNIT=(name[ , {n]P}1])2 
[.{ | 31) »SER=(volume-serial-number[ ,volume-serial-number]...)? 


ds name 

VOLUME=(({ PRIVATE ][ ,RETAIN][ , vol ume-sequence-number][ ,volume-count] »REF=)*.ddname ( )4 
* .s tepname.ddname 
© stepname. procstep.ddnané) 


j TRK 
ore ee 


MXIG JF 
»(primary-quantity[ ,secondary-quantity][,directory- j 6 
average-record-length} a yl ya yI[.directory-quantity])[ LSE] aa [ ,ROUND]§)7 


LABEL=([data-set-sequence-nunber} {»Ut | epee De 
sol J L,RETPD=xxxx 


SYSOQUT=A 
SYSOUT=B 
SYSOUT=(X[,program-name][ ,form-no. ]) 


| ,DELETE |9 
(abl KEEP 
DISP=( ,PASS )7 
1 j * CATLG 
SHR ) | UNCATLG 


ds name (¢ 
DCB=( * .ddname 
*.stepname .ddname 
.s tepname .procstep.ddname 


E 110 CFU CAIMICTIE BLKSIZE=xxxx] { 
»TRICH=< 7 ,BUFNO{ 2 + [ ,OPTCD=C ] | ,RECFM=<V[A[M][T ] , LRECL=xxxx ,BLKSI ZE=xxxx )a1 
} es {F|V}BLA M][T],LRECL=xxxx ,BLKSI ZE=xxxx } 


—~ 
WN — oO 


7 


»>BLKSIZE=xxxx 12 


‘If neither "n" nor "P" is specified, 1 is assumed. 

2If only "name" is specified, the delimiting parentheses may be omitted. 

3If only one "volume-serial-number" is specified, the delimiting parentheses may be omitted. 

“SER and REF are keyword subparameters; the remaining subparameters are positional subparameters. 
SThe assumption made when this subparameter is omitted is discussed with the SPACE parameter. 
SROUND can be specified only if "“average-record-length" is specified for the first subparameter. 


7A11 subparameters are positional subparameters. 

SEXPDT and RETPD are keyword subparameters; the remaining subparameters are positional‘subparameters. 
®8The assumption made when this subparameter is omitted is discussed in "Job Control Language." 

1 BUFNO is the only DCB subparameter that should be specified for direct access data sets. 

The first subparameter is positional; all other subparameters are keyword subparameters. 

12This form is used only with compiler and linkage editor blocked input and output. 





Figure 29. DD Parameters for Creating Data Sets 


USE OF DD STATEMENTS FOR DIRECT-ACCESS DATA 


SETS 


Data sets that are referred to in FOR- 
TRAN direct-access input/output statements 
must first be defined in the DEFINE FILE 
statement. However, the DD statement may 
be used in conjunction with the DEFINE FILE 
Statement for designating other character- 
istics of the data set. 


If the user chooses to exercise this 
option, caution must be taken in specifying 
the parameters in the DD statement (Figure 
29). The DUMMY parameter may not be used 
with FORTRAN defined direct access data 
sets because of a conflict in specifica- 
tions. The remaining parameters of the DD 
statement must conform to the specifica- 
tions in the DEFINE FILE statement. The 
DEN and TRTCH subparameters of the DCB 
parameter apply only to data sets residing 
on magnetic tape volumes; consequently, 
their use with FORTRAN defined direct 
access data sets may also produce a 
conflict. 


The following statements illustrate the 
possible conflicts that may arise between 
the DEFINE FILE and DD statements. 

DEFINE FILE 2(50,100,E,12) 


//ETO2FO001 DD DSNAME=BOOL, DISP=(NEW, CATLG) 1 


// LABEL=(, SL), UNIT=SYSDA, 2 
17 VOLUME= (PRIVATE, RETAIN), 3 
// SPACE= (100, (50,30),,CONTIG), 4 
td DCB= (DEN=1, RECFM=F, BLKSIZE=100) 


The SPACE parameter must be included for 
all direct access data sets, but it must. 
also conform to the DEFINE FILE statement; 
the record length in both statements must 
be the same. In the DCB parameter, the 
subparameter DEN applies only to data sets 
residing on magnetic tape volumes. If the 
DUMMY parameter is specified in a DD state- 
ment for a direct access data set, the con- 
flict arises because the disposition of a 
direct access data set is always checked 
and a dummy data set has no disposition. 


Note: The name field of the DD statement 
must contain FTxxF001, where xx is the data 
set reference number specified in the 
DEFINE FILE statement. 





DATA SET NAME 


The DSNAME parameter specifies the name 
of the data set. Only four forms of the 
DSNAME parameter are used to create data 
sets. 
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DUMMY 


UNIT=(name[, {n|P}]) \ 


DSNAME=dsname \ 
DSNAME=dsname (element) 


specify names for data sets that are 
created for permanent use. 


Note: Members of a partitioned data 
set cannot be read as input to a 
FORTRAN object program or created as 
output from a FORTRAN object program 
even though the member name has been 
specified in the DSNAME parameter of a 
DD statement. 


DSNAME= name ; 
DSNAME=é&name (element) 


specify data sets that are temporarily 
created for the execution of a single 
job or job step. 


is specified in the DD statement to 
inhibit I/O operations specified for 
the data set. A write statement is 
recognized, but no data is trans- 
mitted. (When the programmer speci- 
fies DUMMY in a DD statement used to 
override a cataloged procedure, all 
parameters in the cataloged DD state- 
ment are overridden.) 


Note: A DUMMY data set should only be 


read if the “END= " option is speci- 

fied in the FORTRAN READ statement. 

If the option is not specified, a read 
causes an end of data set condition, | 
and termination of execution of the ( 
load module. 


DDNAME=ddname 


indicates a DUMMY data set that will 
assume the characteristics specified 
in a following DD statement "ddname". 
The DD statement identified by 
"ddname"™ then loses its identity; that 
is, it cannot be referred to by an 
*....ddname parameter. The statement 
in which the DDNAME parameter appears 
may be referenced by subsequent 
*....ddname parameters. If a subse- 
quent statement identified by "ddname" 
does not appear, the data set defined 
by the DD statement containing the 
DDNAME parameter is assumed to be an 
unused statement. The DDNAME parame- 
ter can be used five times in any 
given job step or procedure step, but 
no two uses can refer to the same 
"ddname". The DDNAME parameter is 
used mainly for cataloged procedures. 


SPECIFYING I/O DEVICES 


The name and number of I/O devices are 
specified in the UNIT parameter, 


gee eN 


name 


n|P 


is given to the input/output device 
when the system is generated. 


specifies the number of devices allo- 
cated to the data set. If a number, 
"n" is specified, the operating system 
assigns that number of devices to the 
data set. Parallel, “P", is used with 
cataloged data sets when the required 
number of volumes is unknown. The 
control program assigns a device for 
each volume required by the data set. 


SPECIFYING VOLUMES 


The programmer indicates the volumes 


used 


for the data set in the VOLUME 


parameter. 


VOLUME= ( [PRIVATE] [, RETAIN] 


[, volume-sequence-number ] 
(, volume-count] 


, SER= (volume-serial-number 
[, volume-serial-number]...) 


dsname 

, REF= ) *. ddname ) 
*.stepname. ddname 
*,stepname. procstep.ddname 


identifies the volume(s) assigned to 
the data set. | 


PRIVATE 


indicates that the assigned volume is 
to contain only the data set defined 
by this DD statement. PRIVATE is 
overridden when the DD statement for a 
data set requests the use of the pri- 
vate volume with the SER or REF sub- 
parameter. The volume is demounted 
after its last use in the job step, 
unless RETAIN is specified. 


RETAIN 


indicates that this volume is to 
remain mounted after the job step is 
completed. Volumes are retained so 
that data may be transmitted to or 
from the data set, or so that other 
data sets may reside on the volume. 
If the data set requires more than one 
volume, only the last volume is 
retained; the other volumes are dis- 
mounted when the end of volume is 
reached. If each job step issues a 
RETAIN for the volume, the retained 
status lapses when execution of the 
job is completed. 


volume-sequence-number 


is a one-to-four digit decimal number 
that specifies the sequence number of 
the first volume of the data set that 
is read or written. The volume 
sequence number is meaningful only if 
the data set is cataloged and volumes 
lower in sequence are omitted. 


volume-count 


SER 


REF 


|REF=dsname 


REF=*.stepname. 


epee 


specifies the number of volumes 
required by the data set. Unless the 
SER or REF subparameter is used, this 
subparameter is required for every 
multi-volume output data set. 


specifies one or more serial numbers 
for the volumes required by the data 
sets. A volume serial number consists 
of one to six alphameric characters. 
If it contains less than six charac- 
ters, the serial number is left 
adjusted and padded with blanks. If 
SER is not specified, and DISP is not 
specified as NEW, the data set is 
assumed to be cataloged and serial 
numbers are retrieved from the cata- 
log, Or inherited from passed data 
sets ina previous step. A volume 
serial number is not required for new 
output data sets. 


indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by "“dsname", 

"*, ddname", “*.stepname.ddname", or 
*.stepname.procstep.ddname. Table 9 
shows the data set references. 


9. Data Set References 


[a data set named | 
| "dsname" | 


~----------------- +-------------------| 
REF=*.ddname 


Ja data set indicat-| 
|ed by DD statement | 
|"ddname" in the | 
|current job step | 


------------------ }--=-----=----------4 


REF=*.stepname.ddname|a data set indicat- 


| 
|ed by DD statement | 
|"ddname" in the | 
[previous job step | 
| "stepname" | 


Ja data set indicat-| 
procstep.ddname|ed by DD statement | 
|"ddname" in the | 
|procedure step | 
|"procstep" invoked | 
Jin the previous job| 
|step "stepname" | 
FE En SN Ne OE oe etek en ene anes | 
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When the data set resides on a tape 
volume and REF is specified, the data set 
is placed on the same volume, immediately 
behind the data set referred to by this 
Subparameter. When this subparameter is 
used, the UNIT parameter must be omitted. 


If SER or REF is not specified, the con- 
trol program allocates any non-private 
volume that is available. 


SPECIFYING SPACE ON DIRECT-~ACCESS VOLUMES 


The programmer indicates the amount of 
space for a data set in the SPACE 
parameter. 


TRK 
SPACE= (< CYL 


average-record-length 
» (primary-quantity 
[, secondary-quantity]) 


« MXIG 
[,RLSE]| ,ALX {[, RCUND] ) 
yf CONTIG 


SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. 


2. Amount of space allocated. 


3. Whether unused space can be released. 


4. In what format space is allocated. 


TRK 

average-record-length 
specifies the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length in 
bytes expressed as a decimal number 
less than or equal to 65,535). 


(primary-quantity[,secondary-quantity]) 
specifies the amount of space allo- 
cated for the data set. The "primary 
quantity" indicates the number of 
records, tracks, or cylinders to be 
allocated when the job step begins. 
The “secondary quantity" indicates how 
much space is to be allocated each 
time previously allocated space is 
exhausted. (Note: The maximum number 
of times secondary allocation will be 
made is 15.) 


For example, by specifying: 


SPACE= (120, (400,100) ) 
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RLSE 


MXIG 
ALX 


CONTI 


MXIG 


ALX 


Space is reserved for 400 records, the 
average record length is 120 charac- 
ters. End time space is exhausted, 
space for 100 additional records is 
allocated. 


By specifying: 
SPACE=(CYL, (20,2) ) 


20 cylinders are allocated to the data 
set. When previously allocated space 
is exhausted, two additional cylinders 
are allocated. 


Note: When the FORTRAN programmer 
uses a direct access data set, he must 
allocate space on the direct access 
volume in two places: the DEFINE FILE 
Statement in the source module and a 
DD statement at load module execution. 
He must also make certain that the DD 
Statement SPACE parameter contains an 
adequate SPACE allocation, based on 
the value specified in the DEFINE FILE. 
Statement. | 


indicates that all unused external 
storage assigned to a NEW or MOD data 
set is released when processing of the 
data set is completed. 


; 


specify the format of the space allo- 
cated to the data set, as requested in 
the “primary quantity". 


requests the largest single block of 
contiguous storage that is greater 
than or equal to the space requested 
in the "primary quantity". 


requests all available storage on the 
volume as long as there is at least as 
much space as specified in the "pri- 
mary quantity". The operating system 
must be able to allocate at least the 
amount specified as the "primary quan- 
tity" by using, at most, five noncon- 
tiguous areas of storage. 


CONTIG 


requests that the space indicated in 
the “primary quantity" be contiguous. 


If the subparameter is not specified, 
Or if any option cannot be fulfilled, 
the operating system attempts to 
assign contiguous space. If there is 
not enough contiguous space, up to 
five noncontiguous areas are 
allocated. f 


Note: 


ROUND 
indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 


If a data set might be written on a 
direct access volume, the SPACE parameter 
must be specified in the DD statement. 


LABEL INFORMATION 


The label parameter (LABEL) is used to 
specify the type and contents of a data set 
label. 


Fe ee anne Gr 


, EXPDT=yyddd 
oRETPD=xxxx |) 


data-set-sequence-number 
is a four-digit number that identifies 
the relative location of the data set 
with respect to the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is identi- 
fied by data set sequence number 3.) 
If the data set seguence number is not 
specified, the operating system 
assumes 1. 


NL 

suf 
specifies whether a data set is 
labeled or unlabeled. SL indicates 
Standard labels. NL indicates no 
labels (applicable only to data sets 
residing on a tape volume). 


eet 


RETPD=xXxXxx 
specifies how long the data set shall 
exist. The expiration date, EXPDT= 
yyddd, indicates the year (yy) and the 
day (ddd) the data set can be deleted. 
The period of retention, RETPD=xxxx, 
indicates the period of time, in days, 
that the data set is to be retained. 
If neither is specified, the retention 
period is assumed to he zero. 


DISPOSITION OF A DATA SET 


The disposition of a data set is speci- 
fied by the DISP parameter; see “Data 
Definition (DD) Statement". The same 
options are used for both creating data 
sets and retrieving previously created data 
sets. When a data set is created, the sub- 
parameters used are NEW, MOD, KEEP, PASS, 
and CATLG. 


WRITING A UNIT RECORD DATA SET ON AN 


INTERMEDIATE DEVICE 


With the SYSOUT parameter, output data 
sets can be routed to a system output 
stream and handled much the same as system 
messages. | 


SYSOUT=A 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 


used. This form of the SYSOUT parame- 
ter may be specified for printer data 
sets. 

SYSOUT=B 


can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler routes 
the output data set to class B. 


SYSOUT=(x[,program-name] [,form-number] ) 
indicates that the data set is normal- 
ly written on an intermediate direct 
access device during program execu- 
tion, and later routed through an out- 
put stream to a system output device. 
The "x" is to be replaced by an alpha- 
betic or numeric character that speci- 
fies the system output class to be 
used. Output writers route data from 
the output classes to system output 
devices. The DD statement for this 
data set can also include a unit 
specification that describes the 
intermediate direct access device and 
an estimate of the space required. If 
these parameters are omitted, the job 
scheduler provides default values as 
the job is read and processed. 


If there is a special installation 
program to handle output operations, 
its “program-name" should be speci- 
fied. "“Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a four-digit “form 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Note: If the DEN subparameter is explicit- 
ly specified for SYSOUT data sets, only 

DEN=2 is allowed in the DCB parameter. {In 
addition, TRTCH=C must be specified in the 
DCR parameter, when the SYSOUT data set (1) 
is written on 7-track tape and (2) is com- 
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posed of variable-length records or con- *.stepname.ddname 

tains binary information. indicates that the DCB subparameters 
in a DD statement "ddname" that occurs 
in a previous job step "stepname" in 
the current job are copied. 


DCB PARAMETER *,stepname. procstep.ddname 
indicates that the DCB subparaineters 
in the DD statement "“ddname" are 


For load module execution, the FORTRAN copied from a previous step “procstep" 
programmer may specify record formats and in a cataloged procedure. The proce- 
record lengths for sequentially organized dure was invoked by the EXEC statement 
data sets that reside on magnetic tape or "stepname"™ in the current job. 


direct access volumes. The DCB information 
is placed in the labels for these data 
sets. 


dsname DENSITY AND CONVERSION 
DCB=(j] *.ddname 
*. stepname.ddname 


*.stepname.procstep. ddname The second subparameter indicates the 
density and conversion for data sets resid- 
(, DEN={0]1]2|]3311, TRTCH={C|E|T|ET}H] ing on magnetic tape volumes. 


[, BUFNO={1| 23], OPTCD=C] 
DENSITY: Density is specified for data 


{F{[U} CA[M] (T](, BLKSIZE=xxxx] sets residing on any magnetic tape volume. 
»RECFM= ) V[A|M] (T], LRECL=xxxx, BLKSIZE=xxxx 
: {F|/V}B[A|M]) (T], LRECL=xxxx, DEN={0|1|2| 3} 
BLKSIZE=xxxx indicates the density used to write a 


data set (see Table 10). 
, BLKSIZE=xxxx 
Table 10. DEN Values 


REFERRING TO PREVIOUSLY SPECIFIED DCB | DEN }—----~--------—-—-—----~-----—--~--------- | 

INFORMATION jValue| Model 2400 | 

| }----------------- q7---------------- { 

| | 7-Track [ 9-Track | 

The first subparameter }----—— +-—-----~--—------—--- 4+-—~—~--—-—-—~—~-—~—-—-—-—~—~--- 4 

| Oo [| — 200 | - | 

dsname | 1 | 556 | = | 

*.ddname 2). 4 800 | 800 | 

*.stepname. ddname lt 3 | - | 1600 | 

*.,stepname.procstep.ddname L____— 1i——-~—~—~—-—~——~—~—-—-—-~~—~—~— 4.-——— ——~——-~————-———— J 

is used to copy DCB information from the If DEN is not specified, the lowest applic- 
data set label of a cataloged data set or able density is assumed. 


from a preceding DD statement. The copied 
information is used for processing the data 


set defined by the DD statement in which CONVERSION: Conversion is used only for 
the subparameter appears. Any subparame- data sets residing on 7-track tape volumes. 
ters that follow this subparameter override 
any copied DCB subparameters. TRICH={C|E|T|ET} 
indicates which conversion type is 
used: 
dsname 
indicates that the DCB subparameters C - data conversion feature is 
of a cataloged data set "dsname" are used 
copied. The data set indicated by 
"dsname" must be currently mounted and E - even parity is used 
it must reside on a direct access 
volume. T - translation from BCD to EBCDIC 
is required 
*.ddname 
indicates that the DCB subparameters ET - even parity is used and trans- 
in a preceding DD statement "ddname" lation from BCD to EBCDIC is 
in the current job step are copied. required. 
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NUMBER OF BUFFERS FOR SEQUENTIAL DATA SETS 


The number of buffers required for any 
application is specified by 


BUF NO=x 
where: 


x=1 or 2 


CHAINED SCHEDULING 


Chained scheduling may be requested by 
specifying OPTCD=C as a DCB subparameter in 
the DD statement. Although chained sched- 
uling is not used for direct-access I/O 
itself, it does produce faster formatting 
of direct-access data sets. It is this 
direct-access application of chained sched- 
uling that is its most important FORTRAN 
function, since use of chained scheduling 
for sequential data sets does not appre- 
ciably reduce FORTRAN execution time. 

Note, too that when chained scheduling is 
specified, the system makes use of about 2K 
additional bytes of main storage to provide 
the feature. 


RECORD FORMAT 


RECFM=U[A|M](T] 
RECFM=V([B] [(A|M1[T] 
RECFM=F[B] [A|M](T] 


The characters U, V, F, and B represent 


U - undefined records (records that do 
not conform to either the fixed- 
length or variable-length format) 

V - variable-length records (records 
whose length can vary throughout the 
data set) 

F - fixed-length records (records whose 
length is constant throughout the 
data set) 

B - blocked records 


The character A indicates the use of the 
extended USA carriage control characters. 
(See Appendix E); the character M indicates 
the use of machine code control characters. 


Note: If A is not specified (or assumed), 
a carriage control character is treated as 
data and written. Single spacing is 
provided. 


The character T specifies the use of the 
track overflow feature. Use of this fea- 
ture results in more efficient utilization 
of track capacity and allows records to be 
written when the specified block size 
exceeds track size. RECFM subparameter 
specifications, and the type of processing 
each is associated with, follow: 


RECFM=UT 
Formatted Sequential I/O 


RECFM=VT 
Formatted or Unformatted Sequential 
I/O 


RECFM=FT 
Direct Access I/O or Formatted Sequen- 
tial I/0 


Note that backspacing is not allowed when 
track overflow is specified. Therefore, a 
FORTRAN program using the track overflow 
feature may not contain the BACKSPACE 
statement. 


RECORD LENGTH, BUFFER LENGTH, AND BLOCK 
LENGTH 


For unblocked, fixed-length or undefined 
records, the record length and the buffer 
length are specified by 


BLKSIZE=xxxx (See Table 11.) 


For unblocked variable-length records, 
the record length is specified by 


LRECL=xxxx (1<xxxx<3624); 
buffer length is specified by 
BLKSIZE=xxxx (See Table 11.) 


For all blocked records, the record 
length is specified by 
LRECL=xxxx (1<xxxx<3624) ; 


block length and buffer length are speci- 
fied by 


BLKSIZE=xxxx (See Table 11.) 
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Br ee Os ey ee ee Dest eee ca ae en 1 

| Sequential Data Sets | Direct Access Data Sets [ 
‘pues Sn pana ne aq oe | eas Tne a ea 5, aaa aaa Be a { 
i Data Set | | Default | Default | Default | Default LRECL | 
| Reference Number | ddname | BLKSIZE1 | RECFM2 | RECFM | Or BLKSIZE | 
}------------------- +---~-------- $------~--- $--~~------- {----------- {------------------ { 
| 1 | FTO1Fyyy | 800 | U | F | | 
}------------------- $------------ 4---------- +----------- 4----------- { | 
| 2 | FTO2Fyyy | 800 | U | F | The value spec-| 
}------------------- +------------ ---------- +----------- 4----------- {oo | 
| 3 | FTO3Fyyy (| 800 | U | FA3 | ified as the | 
}------------------- $------------}---------- +~----~------ +----------- { | | | 
| 4 | FTO4Fyyy | 800 | U | F | maximum size of | 
}------------------- +------------ +---------- {----------- 4----------- { | | 
| 5 | FTOSFyyy | 80 i F | F | a record in the| 
}------------------- $------------ +---------- +----------- +----------- { | 
| 6 | FTO6Fyyy | 133 | UA? | F | DEFINE FILE | 
}------------------- }------------ +---------- +----------- }----------- { | 
| 7 | FTO7Fyyy | 80 | F | F | statement. | 
}------------------- +------------ +---------- {----------- +----------- { | 
8 | FTO8Fyyy | 800 | U | F | | 
| . | - | : | ° | . | | 
| ° | . | : . | : | 
| . | . | - | ° | : | | 
| 99 {| FT99Fyyy | 800 | U | F | | 
{-_-_____-______..__.. Dace ee peep eee Blane ie ena ieiecia anetee aoe ees Me et tal ee | 
|4If the records have no FORMAT control, the default LRECL is 4 less than BLKSIZE, where| 
| the default BLKSIZE is as specified in this table. For direct access data sets, | 
{ blocksize is usually limited by track capacity, unless track overflow has been | 
| specified. | | 
|2If the records have no FORMAT control, the default RECFM is V (F if it is direct 
| access). | 
|2The first character in the record is for carriage control. | 
ea eave ON Oe om cre Me ee Een tr Pec te aa te ent ne na ae OE OP Re J 


FORTRAN Records and Logical Records 


In FORTRAN, records for sequential data 
sets are defined by specifications in 
FORMAT statements and by READ/WRITE lists. 
A record defined by a specification ina 
FORMAT statement is a FORTRAN record (see 
the FORTRAN IV Language publication). A 
record defined by a READ/WRITE list is a 
logical record. Within each category, 
there are three types of records: f1ixed- 
length, variable-length, and undefined. In 
addition, fixed-length and variable-length 
records can be blocked. 


UNBLOCKED RECORDS, FORMAT CONTROL: For 
fixed-length and undefined records, the 
record length and buffer length are speci- 
fied in the BLKSIZE subparameter. For 
variable-length records, the record length 
is specified in the LRECL subparameter; the 
buffer length in the BLKSIZE subparameter. 
The information coded in a FORMAT statement 
indicates the FORTRAN record length (in 
bytes). 


Fixed-Length Records: For unblocked fixed- 
length records written under FORMAT con- 
trol, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 30). 
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Example: 


Assume BLKSIZE=44 


10 FORMAT(F10.5,16,2F12.5,'"SUMS') 
WRITE (20,10) AB, NA,AC,AD 


BLS Ze Se a a eae 7 
| 

SSS ee ee FORTRAN Record 
| 


44 Bytes of Data 


FORTRAN Record (FORMAT Control) 
Fixed-Length Specification 


Figure 30. 


If the FORTRAN record length is less 
than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 31). The entire buffer is 
written. 


Example: Assume BLKSIZE=56 


5 FORMAT(F10.5,16,F12.5, "TOTAL') 
WRITE (15,5) BC,NB, BD 


aS a Se ee Be ae 
| 
-- — — — — ——- Written Record — — — —- —— — 
riffen Kecor a 
[+ — — FORTRAN Record - — — | 


| 
33 Bytes of Data 23 Bytes of Blanks 


FORTRAN Record (FORMAT Control) 
Fixed-Length Specification and 
FORTRAN Record Length Less Than 
BLKSIZE 


Figure 31. 


Variable-Length Records: For unblocked 
variable-length records written under 


FORMAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length; and BLKSIZE as four greater than 
LRECL. These extra eight bytes are 
required for the four-byte block control 
word (BCW) and the four-byte segment con- 
trol word (SCW), as shown in Figure 32. 
The BCW (see Figure 37) contains the length 
of the block; the SCW (see Figure 38) con- 
tains the length of the record segment, 
i.e., the data length plus four bytes for 
the SCW. 


aaa BLKSIZE - — — -- —-———— ~ 
| | 
! 
| opoesceceas- LRECL -—-— ——-——-—-——- ' 
| 
| (—— — — — — — FORTRAN Record — — — — ——— i 
| 
| 


Figure 32. FORTRAN Record (FORMAT Control) 
Variable-Length Specification 
If the data length is less’ than 


(LRECL-4), the unused portion of the buffer 
is not written (see Figure 33). 





FORTRAN Record (FORMAT Control) 
With Variable-Length Specifica- 
tion and the FORTRAN Record 
Length Less Than (LRECL-4) 


Figure 33. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record 
length. If the FORTRAN record length is 
less than BLKSIZE, the unused portion of 
the buffer is not written (see Figure 34). 


——<— eee 4 

l 

Data Not Written \ 
a pet ae re a J 


FORTRAN Record (FORMAT Control) 
With Undefined Specification 
and the FORTRAN Record Length 
Less Than BLKSIZE 


| 
| 
--— —— — FORTRAN Record — ~—~—- — 4 | 
| 
| 


Figure 34, 


BLOCKED RECORDS, FORMAT CONTROL: For all 
blocked records, the record length is spec- 
ified in the LRECL subparameter; the block 
length and buffer length in the BLKSIZE 
subparameter. 


Fixed-Length Records: For blocked fixed- 
length records written under FOKMAT con- 
trol, LRECL is specified as maximum possi- 
ble FORTRAN record length, and BLKSIZE must 
be an integral multiple of LRECL. If the 
FORTRAN record length is less than LRECL, 
the rightmost portion of the record is 
padded witn blanks (see Figure 35). 


Example: Assume BLKSIZE=48 and LRECL=24 


10 FORMAT(I2,F4.1,F8.4,F10.5) 
20 FORMAT(I3,F9.4) 


WRITE (13,10)N,B,Q,S 


WRITE (13, 20) K,2 


inane BKSIZE SS Se 1 

| 

< Sa —Written Block — —— —- —- -— = 

-+#—-—-——-- LRECL — — — — — + --- LRECL — mate, 

| | FORTRAN | 

Eo FORTRAN Record ote pe id | 
| 


| | | 


12 12 Bytes 


Data Bytes of 


24 Data Bytes. 
Blanks 





Fixed-Length Blocked Records 
Written Under FORMAT Control 


Figure 35. 


Variable-Length Records: For blocked 
variable-length records written under 
FORMAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be at least four 
greater than LRECL. The four bytes are 
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required for the block control word (BCW) 
that contains the block length. The data 
length must be equal to or less than © 
(LRECL-4). These four bytes are used for 
the segment control word (SCW) that con- 
tains the record-length indicator. 


If a WRITE is executed and the amount of 
Space remaining in the present buffer is 
less than LRECL, only the filled portion of 
this buffer is written (see Figure 36); the 
new data goes into the next buffer. Howev- 
er, if the space remaining in a buffer is 
greater than LRECL, the buffer is not writ- 
ten, but held for the next WRITE (see 
Figure 36). If another WRITE is not 
executed before the job step is terminated, 
then the filled portion of the buffer is 
written. 


Example: Assume BLKSIZE=28 and LRECL=12. 
30 FORMAT(I3, F5. 2) 
YQ FORMAT(CF4.1) 
50 FORMAT(F7.3) 
WRITE (12, 30)M,Z 
WRITE(12,40)V | 
WRITE(12,50)Y 


ae a ee ee UU IE aes ae ee ae eee meee | 
| | 
oo a= (Written Block ss Se re ; | 
| 
I 
| pean TREC oo atien ny eee eRe 
| ! 
| | + —-FORTRAN Record ——4 -FORTRAN _, | 
; | l { Record | | 
a | | | ees L 
4Bytes 
BCW|SCW Not | 
Written | 
——_ ee oe ee oe J 









f~ ~~ FORTRAN Record— — 
| | 


| | 
This space of 13 bytes 
Ready for next WRITE. 


BCW|SCW 7 Data Bytes 
| | (space >LRECL) 


Figure 36. Variable-Length Blocked Records 
Written Under FORMAT Control 


NO FORMAT CONTROL: Only variable-length 
records can be written without format con- 
trol; i.e., the RECFM subparameter must be 
V. (I£ nothing is specified, V is 

assumed. ) | 


Records written with no FORMAT control 
have the following properties: 


The length of the logical record is 
controlled by the type and number of 
variables in the input/output list of 
its associated READ or WRITE statement. 


A logical record can be physically 
recorded on an external medium as one 
or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (block). 
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Three quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified 
by the BLKSIZE parameter), the segment 
length (as specified by the LRECL 
parameter), and the logical record (as 
defined by the length of the I/O list). 
BLKSIZE and LRECL are specified as part 
of the DCB parameter of the data 
definition (DD) statement. If not 
specified, FORTRAN provides default 
values. 


Each block begins with a 4-byte block 
control word (BCW); each segment begins 
with a 4-byte segment control word (SCW). 
The SCWs and BCWs are provided by the sys- 
tem. Each buffer begins with a four-byte 
block control word (BCW). The SCWs and 
BCWs are provided by the system. 


The format of a BCW is given in Figure 
37. 


| block-length | reserved | 

Sa eat ae ade Seren SIONS Ae) em Mo Serer ce es Rarer ee ee J 
2 bytes 2 bytes 

Figure 37. Format of a Block Control Word 


where: 


block-length 

is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the BCW 
plus the sum of the segment lengths 
specified in each SCW in the block. 
(The permissible range is from 8 to 
32,767 bytes.) 


reserved 
is two bytes of zeros reserved for 
system use. 


The format of an SCW iS given in Figure 
38. 


Reto ee eee aaa aa as eon er ee 1 
| segment-length | code |reserved | 
ae ee Neer ee Pee J 
2 bytes 1 byte 1 byte 
Format of a Segment Control 


Figure 38. 
| Word 


where: 


segment-length 
is a binary count of the number of 
bytes in the SCW (4 bytes) plus the 
number of bytes in the data portion of 
the segment following the SCW. (The 
permissible range is from 4 to 32,763 
bytes. ) 


code Example 2: Assume BLKSIZE=28 and LRECL=24 
indicates the position of the segment 


with respect to the other segments (if WRITE (18) Q,R,S,V,X 

any) of the record. Bits 0 through 5 

are reserved for system use and are where: QO, R, and V are real *8 variables S 

set to 0. Bits 6 and 7 contain the and X are real *4 variables 

conse: ean eel es BLKSIZE SSS Pee eee eRe eet 7 

Code Meaning qeOheeee esa —LRECL — --- -------------- 

00 This segment is not followed or so | 
preceded by another segment of be pea renee ee a Beginning of Logical Record ~~ ——-—---- ~--- = 

| 


the record. 


01 This segment is the first of a | 
10 This segment is the last of a 


multisegment record. mG 20 Bytes 
11 This segment is neither the wre 
first nor last of a multiseg- 
ment record. 
reserved 
is a byte of zeros reserved for system 


use. r-~~~End of Logical Record- ~ — a 
] | 
] l 


Unblocked Records: For unblocked records Not Written 


written without FORMAT control the value of 

BLKSIZE is equal to LRECL + 4. (The four an rye SRytes 

additional bytes are for the BCW.) i 
Figure 40. Variable-Length Unblocked Rec- 


If the logical record length is less ords, No FORMAT Control, Two 
than or equal to LRECL-4, the logical rec- Record Segments 
ord comprises one record segment. Hence, 
for each READ or WRITE statement issued, Blocked Records: For blocked records writ- 
one record segment, i.e., one block, is ten without FORMAT control, each block is 
transmitted (see Figure 39). Note that the composed of M record segments, where: 
unused portion of the block is not M = BLKSIZE-4/LRECL. 
transmitted. 

If the logical record length is less 

If the logical record length is greater than or equal to LRECL-4, the logical rec- 
than LRECL-4, the logical record comprises ord comprises one record segment. Hence, 
N record segments, where: N=logical record for each M READ or WRITE statements issued, 
length/LRECL-4. Hence, for each READ or one block, i.e., M record segments, are 
WRITE statement issued, N record segments, transmitted. 
i.e., N blocks, are transmitted (see Figure 
40). If the logical record length is greater 


than LRECL-4, the logical record comprises 
N record segments, where: N = logical rec- 


Example 1: Assume BLKSIZE=28 and LRECL=24 ord length/LRECL-4. Hence, for each READ 
or WRITE statement issued, N record seg- 
WRITE (18) Q,R ments (1i.e., as many blocks of M segments 
| each as are needed to make up N segments) 
where: Q and R are real *8 variables are transmitted. The unused portion of the 
last block is held for the next READ or 
prs ee ee eee BLKSIZE — — — — — — — — — WRITE (see Figure 41). 
| 
: pe mere aee wee CRECE: Salers epee re 4 Example: Assume BLKSIZE=28 and LRECL=12 
| 
| i | 


—— — — Logical Record — — — — 


WRITE (18) A 


j { | o 


4 bytes 4 bytes 16 bytes 4 bytes WRITE (1 8) B 
Figure 39. Variable-Length Unblocked Rec- 3 
ords, No FORMAT Control, One ‘ 

Record Segment WRITE (18) E 
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4 Bytes 8 Bytes 4 Bytes 4 Bytes 4 Bytes 


-~Logical Record — “a 


{ 
Space Ready for Next WRITE 


4 Bytes 4 Bytes 16 Bytes 
4 Bytes 


Figure 41. Variable-length, Blocked Rec- 
ords, No FORMAT Control 
where: Ais a real *8 variable B and E are 


real *4 variables 


BACKSPACE Operations 


Unblocked Records, FORMAT Control: For all 
unblocked records written under FORMAT con- 
trol, the volume is positioned so that the 
last record read or written is transmitted 
next. 


Unblocked Records, NO FORMAT Control: For 
all unblocked records written without 


FORMAT control, the volume is positioned so 
that the last logical record read or writ- 
ten is transmitted next. 


Blocked Records: The programmer is cau- 
tioned against backspacing blocked records; 
the results obtained are unpredictable. 


Extending a Data Set: The execution of an 
ENDFILE followed by the execution of a 


BACKSPACE does not cause the FORTRAN 
sequence number to be incremented. The 
data set can be extended (written) using 
the same FORTRAN sequence number. 


Record Length, Buffer Length, and Number of 
Buffers for Direct Access Data Sets 


A direct access data set can contain 
only fixed-length, unblocked records. Any 
attempts to read or write any other record 
format by specification in the DCB parame- 
ter are ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 
DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
subparameters in the DCB parameter. For 
example, the statement: 


DEFINE FILE 8(1000,152,E, INDIC) 
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sets the record length and buffer length 
permanently at 152 bytes. The direct 
access data set defined by this DEFINE FIL: 
statement contains 1000 fixed-length, 
unblocked records, each record is 152 bytes 
long, and is written under FORMAT control. 


The only DCB subparameter that can be 
supplied for direct access data sets is the 
number of buffers: 

BUFNO=x (x=1 or x=2) 


x is the number of buffers used to 
read or write the data set. 


Where: 


For records written with FORMAT control, 
the record format is the same as for fixed- 
length unblocked records written with 
FORMAT control for sequential data sets. 
For records written with no FORMAT control, 
the records must be fixed length and 
unblocked. These records do not contain a 
block control word or a segment control 
word. For records written with no FORMAT 
control, the logical record can exceed the 
record length specified in the DEFINE FILE 
statement. If it is shorter than the rec- 
ord length, the remaining portion of the 
record is padded with zeros (see Figure 
42). 


Example: A DEFINE FILE statement has spec- 
ified the record length for a direct access 
data set as 20. This statement is then 
executed: 


WRITE (9'IX)DP1,DP2,R1,R2 


DP1 and DP2 are real *8 variables. 
R1 and R2 are real ¥*4 variables. 

IX is an integer variable that con- 
tains the record position. 


Where: 


BACKSPACE, END FILE, and REWIND opera- 
tions are ignored for direct access data 
sets. 


Pg ie Se ee eg Record Lengh—=—-— —_— = > 
| | 
- eee ee ee Record Segment [me me me — 
I I 
20 Data Bytes 
Record Segment 1+ Record Segment 9 = | Logical Record 
SS Se Record Segment p= =F 


4 Data Bytes 16 Bytes of Z ros 


Figure 42. Logical Record (No FORMAT Con- 
trol) for Direct Access 





=a 


DCB ASSUMPTIONS FOR LOAD MODULE EXECUTION 


The range of values that may be speci- 
fied for BLKSIZE is established for specif- 
ic data set reference numbers. If the DCB 
parameter is not specified, default values 
are assumed for BLKSIZE and RECFM (see 
Table 11). 
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CATALOGED PROCEDURES 


This section contains figures showing 
the job control statements used in the 
FORTRAN IV cataloged procedures and a brief 
description of each procedure. This sec- 
tion also describes statements used to 
override statements and parameters in any 
cataloged procedure. (The use of cataloged 
procedures is discussed in “FORTRAN Job 
Processing.") 


Compile 


In the three cataloged procedures that 
have a compile step (see Figures 43, 44, 
and 46), the EXEC statement named FORT 
indicates that the operating system is to 
execute the program IEKAA00O (the FORTRAN IV 
H compiler). 


The REGION parameter is ignored by 
sequential schedulers. Priority schedulers 
require that region size be specified, 
unless the user is willing to accept the 
default region size (as established in the 
input reader procedure). 


The size of the region required by the 
FORTRAN H compiler depends upon the SIZE 
parameter specified during system genera- 
tion and on the buffer requirements for the 
compiler data sets. The SIZE parameter is 
specified in the FORTRAN macro instruction. 
The buffer requirements must be determined 
for each compiler data set, totaled, and 
rounded to the next highest multiple of 2K 
(where K = 1024 bytes). (The buffer 
requirement for a data set is equal to the 
blocksize multiplied by the number of buff- 
ers.) Another 10K for system use must be 
added to the sum of the SIZE parameter and 
the buffer requirements. 


The region size of 228K in the cataloged 
procedure assumes the default value for the 
SIZE parameter and the buffer requirements 
as given in the procedure. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of the JOB statement. 





Compiler options are not explicitly 
specified; default options are assumed -- 
in particular, SOURCE and LOAD. The source 
listing and compile-time information and 
error messages are written in the SYSOUT 
data set. 
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The object module is written in the tem- 
porary data set &LOADSET. The data set 
§LOADSET is a sequential data set and is in 
“pass" status; records can be added to the 
data set. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as a specification for the sys- 
tem card punch unit. The priority schedul- 
ers route the output data set to system 
output class B. A programmer can get an 
object module card deck by overriding the 
default NODECK option with an explicit DECK 
option. 


Several additional DD statements, 
external to the procedure, may be supplied. 
If the EDIT option is used, a work data set 
must be defined with a FORT.SYSUT1 DD 
statement. If the compiler XREF option is 
specified, a work data set must be defined 
with a FORT.SYSUT2 DD statement. Input to 
the compile step is defined by a FORT.SYSIN 
DD statement. 


Link Edit 


In the three cataloged procedures that 
have a link edit step (see Figures 44, 45, 
and 46), the EXEC statement named LKED 
indicates that the operating system is to 
execute the program IEWL (the linkage edi- 
tor). The linkage editor requires a region 
of 54K if used with MVT. The linkage edi- 
tor step (or the remainder of a procedure) 
is not executed if a condition code greater 
than 4 was generated by a compile step in 
the same procedure. 


If the link edit step is executed, a 
list of linkage editor control statements 
(in card image format), a map of the load 
module and a list of linkage editor diag- 
nostic messages are written in the SYSOUT 
data set. The load module is marked exe- 
cutable even though error conditions are 
found during linkage editor processing. 


If the link edit step is preceded by a 
compile step (see Figures 44 and 46), the 
primary input to the linkage editor may 
consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
is the output of the compiler (&LOADSET 
data set); the second (if present) is the 
data set defined by a LKED.SYSIN DD state- 
ment (external to the procedure). However, 
if the link edit step is the first step in 


Sample Coding Form 


21-30 


aa eee ee Poe AbS00. 2 
27314 [S]el71819]0l | T2]3141516]718]910] | 2131415 {6l7 [slslol i [2]314[5|6l7 [lolol | [213]4[5]6]7[s[9]ol | j2]3]4]5]6]7[s[9lol 1 [2]314| 


//SYSPRINT, DD SYSOUT=A 
/ISYSPUNCH DD SYSOUT=B 
//SYSLIN 


DD DSNAME=€LOADSET UNI T=SYSSQ yDISP=(MOD PASS) 9 
// SPACE = (4609 (206950) »RLSE ) 





Figure 43. Compile Cataloged Procedure (FORTHC) 


a procedure (see Figure 45), the primary 
input is the data set defined by a 
LKED.DD statement. 


External references made in a FORTRAN 
object module are resolved by the linkage 
editor. Some or all of these references 
can be resolved from the FORTRAN library 
(SYS1.FORTLIB) which is a system resident 
PDS. 


During processing, the linkage editor 
requires a work data set which is defined 
by the SYSUT1 DD statement. This data set 
is assigned to a direct access device. 


The load module produced by the linkage 
editor is written in the temporary PDS 
&6GOSET with a member name of MAIN. The 
data set is in “pass" status and is 
assigned to a direct access device. 


Execute 


In the two cataloged procedures that 
have an execute step (see Figures 45 and 
46), the EXEC statement named GO indicates 
that the operating system is to execute the 
load module (program) produced in a preced- 
ing link edit step in the same procedure. 
However, the execute step is bypassed if a 
condition code greater than 4 was generated 
by a compile or link edit step in the same 
procedure. | 


Input to the execute step is defined by 
a GO.SYSIN DD statement (external to the 
procedure) and is read using data set 


reference number 5. Execution-time error 
messages and information for traceback and 
FORTRAN dumps are written in the SYSOUT 
data set that iS associated with data set 
reference number 6. (Output from the load 
module can also be written in the same data 
set.) The card punch is associated with 
data set reference number 7. 


In a multiprogramming environment with a 
priority scheduler, main storage require- 
ments for the execute step are determined 
by a number of factors. These include: 
the size of the object program produced by 
the compiler, the requirements of the data — 
access method used, the blocking factors, 
the number and sizes of the data sets used, 
the number and sizes of library subprograms 
invoked, and the sizes of the execution 
time routines required by the program. If 
the default region size (established in the 
cataloged procedure for the input reader) 
is not large enough for the program, 
REGION.GO must be used to specify the 
region size for the execute step. 


A list of the execution time routines 
required for various input/output, inter- 
ruption, and error procedures is contained 
in the FORTRAN IV Library Subprograms pub- 
lication. That publication also lists the 
Sizes of both the execution-time routines 
and the mathematical subprograms. 


An example of using a REGION.GO speci- 
fication to indicate the main storage re- 
quirements for the execute step of a 
FORTRAN program follows. 
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Sample Coding Form 


Tea Str TSTOL TST ST 16S eS STe SOTO TST Set IRTSON Ta STa Sle VIRISTONeTSIs Sle PSISTON ISI 6 MAISTOL LSTA tel TSISTS 
/FORT EXEC PGM=TEKAA@@O»REGION=228K 


//SYSPRINT, DD SYSOUT=A 
//SYSPUNCH DD SYSOUT=B ; 
//SYSLIN , DD DSNAME=€LOADSET ,UNIT=SYSSQ»DISP=(MOD >PASS) 
SPACE=(406,9(200695@) »RLSE) 
/LKED EXEC PGM=IEWL)REGION=54K5PARM=(MAP 5LET LIST) 9COND=(U9LT 9FORT) 
/SYSLIB | DD DSNAME=SYS1.-FORTLIB»DISP=SHR | 
/SYSPRINT, DD SYSOUT=A 
//SYSLMOD , DD DSNAME=§GOSET(MAIN ))UNIT=SYSDA9DISP=( PASS) 9 
// SPACE =(3072 9( 3091091) »RLSE) 
//SYSLIN , DD DSNAME=§LOADSET »DISP=(OLD .DELETE ) 
\// DD DDNAME=SYSIN 
//SYSUT1 | DD UNIT=SYSDA9SPACE=(1@24 9(200520) ) sSEP=SYSLMOD 





Figure 44. Compile and Link Edit Cataloged Procedure (FORTHCL) 


//EXAMPLE1 JOB ACCOUNT1, ‘JOHNSMITH'‘, X The IBM-supplied cataloged procedures 
// MSGLEVEL=1 for FORTRAN IV H define logical unit 05 as 
// EXEC FORTHCLG, PARM.FORT=DECK, X SYSIN and 06 as SYSOUT. (See Figures 45 
// REGION. GO=200K | and 46.) If, during system generation, 
//FORT.SYSIN DD * values other than 05 for the ONLNRD parame- 
[nn - -- - - 1 ter and 06 for the OBJERR parameter were 

| FORTRAN Source Symbolic Decks | specified in the FORTLIB macro instruction, 
t--_—_—_—___-_-_-_____-_._- ~~ —- -- ~~ - +--+ J one or both of the following DD cards must 
/* | be added to the cataloged procedures, ei- 
//LKED.SYSIN DD ¥* ther at execution time or permanently. 

Re eg ee ee 1 


| Previously Compiled or Assembled | 
| Object Decks | 


Li—————————-~—~— ~~~ ~~~ +--+ +--+ --~--- 4 e For the unit specified as ONLNRD, use 
/* the DD card: 

//GO.SYSIN DD * //GO.FTXXF001 DD DDNAME=SYSIN, 

pron 1 DCB= (BLKSIZE=80, RECFM=F) 

| Input Data ] 

Ere en en oe IS ce ca ev Re ER a ee J 

/* | e For the unit specified as OBJERR, use 


the DD card: 
//GO.FTXxFO01 DD SYSOUT=A 


USER AND MODIFIED CATALOGED PROCEDURES 
where xx is the unit specified. (The Sys- 
tem Generation publication describes the 
The programmer can write his own cata- FORTLIB macro instruction.) 
loged procedures and tailor them to the 
facilities in his installation. He can 


also permanently modify the IBM-supplied In addition, the DD card for FTO5F001 
cataloged procedures. For information must be deleted permanently from the proce- 
about permanently modifying cataloged pro- dure. The following section describes the 
cedures, see the Job Control Language general procedure for adding and deleting 
publication. | cards from cataloged procedures. 
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OVERRIDING CATALOGED PROCEDURES procedure for the duration of the current 
job. Overriding is only temporary; that 
is, the parameters added or modified are in 


Cataloged procedures are composed of effect only for the duration of the job. 
EXEC and DD statements. A feature of the The following text discusses the techniques 
operating system is its ability to read used to modify cataloged procedures. 


control statements and modify a cataloged 






Sample Coding Form 


+ (2TSTas [st TOL T2TSTATs [ot 7 STS TOT 21ST Tel 7TST TOL e|STaTS [el 71S/STOLT 21S alse] 7TsISTOt Ie STA S161 7 SIS Tot Ie S141s 1671618101 eSTAIsI6 7181510 
//LKED EXEC PGM=IEWL »REGION=54K)PARM= (MAP 9LET)LIST 
//SYSLIB | DD DSNAME=SYS1.FORTLIB»)DISP=SHR 
//SYSPRINT, DD SYSOUT=A 


//SYSLIN DD DDNAME=SYSIN — 


//FT@5FOG1 DD DDNAME=SYSIN 
//FT@6FOO1 . DD = SYSOUT=A 


//FTOTFOG1 . DD  SYSOUT=B 


Figure 45. Link Edit and Execute Cataloged Procedure (FORTHLG) 

















~ EE A 





Sample Coding Form 


eS NO ee ae Mee On 21-30 [si-4o_ CT iso. | SCSI“ 60 61-70 71-80 
213 /4/516)7 [8 ]910/1 12131415]6] 718/910] 1121314151617 S1910l 121314 [51617 [8[9lol [2131415 [6]? [s[slol 1213 1415]6]7 1819 iol [21314[sl6]7/s] [ol | 2[314/5]6[7|81910) 


//FORT EXEC PGM=IEKAAQO )REGION=228K 


//SYSPRINT DD SYSOUT=A 
//SYSPUNCH DD SYSOUT=B 


//SYSLIN DD DSNAME=§LOADSET )UNIT=SYSSQ DISP=(MOD >PASS ) 9 X 
// SPACE=(40G,1 (200,50) »RLSE) 


//LKED EXEC PGM=IEWL5REGION=54K9PARM=(MAP3LET LIST) 9COND=(49LT5FORT ) 
/SYSLIB , DD DSNAME=SYS1.FORTLIB)DISP=SHR 

//SYSPRINT, DD SYSOUT=A 

//SYSLMOD , DD DSNAME=EGOSET(MAIN)5UNIT=SYSDAsDISP=(5 PASS) 9 X 
/ es ees Cee 


/ SPACE =(36721(3031051) »RLSE) 

//SYSUT1 | DD UNTT=SYSDA»SPACE=( 16.24, (206,20) ) ,SEP=SYSLMOD 
//SYSLIN | DD DSNAME=éLOADSET (MAIN) » DIS P=(OLD, DELETE) 

// DD | DDNAME=SYSIN | 
/1/GO , EXEC  PGM=*. LKED.SYSLMOD,COND=((45LT FORT)» (4 oLT5LKED) ) 5 
//FTOSFOO1 . DD | DDNAME=SYSIN | | | | | | | | 
//FT@CFOG1 DD SYSOUT=A 


//FTGIFG@!. DD SYSOUT=B 


ss 


1 





Figure 46. Compile, Link Edit, and Execute Cataloged Procedure (FOTHCLG) 
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Overriding Parameters in the EXEC Statement 


Two forms of keyword parameters ("key- 
word" and "keyword.procstep") are discussed 
in "Job Control Language." The form 
"keyword.procstep" is used to add or over- 
ride parameters in an EXEC statement ina 
cataloged procedure. 


The FORTRAN programmer can, for example, 
add (or override) compiler or linkage edi- 
tor options for an execution of a cataloged 
procedure, or he can state different condi- 
tions for bypassing a job step. 


Note: When the PARM parameter is overrid- 
den, all compiler and/or linkage editor 
options stated in the EXEC statement in the 
procedure step are deleted and replaced by 
those in the overriding PARM parameter. 





Example 1: Assume the cataloged procedure 
FORTHC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- 
lowing statement can be used to invoke the 
procedure, and to supply the compiler 
options. 


//STEP1 EXEC FORTHC, X 
17 PARM. FORT="MAP, NAME=MYPROG'" 


The PARM options apply to the procedure 
step FORT. 


Example 2: Assume the cataloged procedure 
FORTHLG is used to link edit and execute a 
module. Furthermore, the XREF option over- 
rides MAP, LET, and LIST in the linkage 
editor step and the COND parameter is 
changed for the execution of the load 
module. The following EXEC statement adds 
and overrides parameters in the procedure. 


7/DO EXEC FORTHLG, PARM. LKED=XREF, Xx 
// COND. GO=(3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applies to the execution 
procedure step GO. 


Example 3: Assume a source module is com- 
piled, link edited, and executed using the 
cataloged procedure FORTHCLG. Furthermore, 
the compiler option OPT and the linkage 
editor option XREF are specified, and. 
account number 506 is used for the execu- 
tion procedure step. The following EXEC 
statement adds and overrides parameters in 
the procedure. 


//STEP1 EXEC FORTHCLG, 
4/ PARM. FORT="OPT=2", 
1/ PARM. LKED=XREF, 

1/ ACCT. GO=506 


mM OX 


62 


Overriding and Adding DD Statements 


A DD statement with the name “stepname. 
ddname" is used to override parameters in 
DD statements in cataloged procedures, or 
to add DD statements to cataloged proce- 
dures. The “stepname" identifies the step 
in the cataloged procedure. If “ddname" is 
the name of a DD statement 


1. present in the step, the parameters in 
the new DD statement override parame- 
ters in the DD statement in the proce- 
dure step. 


2. not present in the step, the new DD 
Statement is added to the step. 


In any case, the modification is only ef- 
fective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are speci- 
fied in the overriding DD statement. 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appear in the cataloged procedure. Any DD 
statements that are added to the procedure 
must follow overriding DD statements. 


Note: The following additional rules apply 
to overriding in cataloged procedures: 


1. In the DCB parameter, individual sub- 
parameters can be overridden. 


2. To nullify the use of any particular 
keyword parameter (except the DCB 
parameter), the overriding DD state- 
ment must specify 


keyword=, 


3. A parameter can be overridden by spec- 
ifying a mutually exclusive parameter 
in the overriding DD statement. For 
example, in the FORTHC procedure, the 
SPACE specification for SYSLIN may be 
overridden by using either the SPLIT 
or SUBALLOC parameter. | 


When the procedures FORTHC, FORTHCL, and 
FORTHCLG are used, a DD statement must be 
added to define the SYSIN data set to the 
compile step in the procedures (see 
Figures 15 and 21). When the procedure 
FORTHLG is used, a DD statement must be 
added to define the SYSLIN data set (see 
Figures 17 and 18). 


When the procedures FORTHCL, FORTHLG, 
and FORTHCLG are used, an overriding DD 
statement can be used to write the load 
module constructed in the linkage editor 
step in a particular PDS chosen by the pro- 
grammer, and assign that member of the PDS 
a particular name. 


In execution procedure steps, the pro- 
grammer can catalog data sets, assign names 
to data sets, supply DCB information for 
data sets, add data sets, or specify par- 
ticular volumes for data sets by using 
overriding and/or additional DD statements. 


Example 1: Assume the data sets identified 
by ddnames FTO4F001 and FTO8F001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the source module. 


//JOB1 JOB MSGLEVEL=1 
//STEP1 EXEC FORTHCLG 
//FORT.SYSIN DD * 


/* 

//GO.FTO4F001 DD DSNAME=MATRIX, 
// DISP=(NEW, CATLG) , UNIT=TAPE, 
//  —NOOLUME=SER=987K 
//GO.FTO8F001 DD DSNAME=INVERT, 
// DISP=(NEW, CATLG) , UNIT=TAPE, 
//  “NOLUME=SER=1020 

//GO.SYSIN DD * 


~ X 


ms X 


Example 2: Assume the link edit and 
execute cataloged procedure (FORTHLG) is 
used. The load module constructed in the 
linkage editor step is placed in the cata- 
loged partitioned data set MATH and is 
assigned the member name DERIV. 


//3OB3 JOB 

//STEP1 EXEC FORTHLG 

//UKED.SYSLMOD DD DSNAME=MATH(DERIV), X 
// DISP= (MOD, PASS) 

//UKED.SYSIN DD * 


/* 

//GO.SYSIN DD * 

rr Pet re ee ee ee ee 1 
| Input to Load Module | 
Dae aa ti ce ee ee J 
/* 


Example 3: Assume the compile, link edit, 
and execute cataloged procedure (FORTHCLG) 
is used with three data sets in the input 
stream: 


1. A FORTRAN main program MAIN with a 
series of subprograms, SUB1 through 
SUBN. 


2. A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 
identified by data set reference num- 
ber 5 in the source module. 


The following example shows the deck 
structure. 


//JOBCLG JOB 00,FORTRANPROG, MSGLEVEL=1 
//HXECCLGX EXEC FORTHCLG 
//FORT.SYSIN DD * 


pein nnmnn nn  nnnnnnnn { 
FORTRAN Source Module SUB1 | 
}----------------------------------------- { 
| ° | 
| . | 
| . | 
|-------------------------~--------------- { 
| FORTRAN Source Module SUBN | 
DI a a a a J 
/* 


4/UKED.~ADDLIB DD DSNAME=MYLIB 
//ULKED.SYSIN DD * 

LIBRARY ADDLIB (ALPHA, BETA, GAMMA) 
/* 
//GO.SYSIN DD * 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are 
in the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the 
linkage editor. The linkage editor control 


‘Statements and the object modules appear as 


one data set to the linkage editor. The Du 
statement GO.SYSIN defines data in the 
input stream for the load module. 
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PROGRAMMING CONSIDERATIONS 


This section discusses minimum system 
requirements for the compiler, program 
optimization, updating the FORTRAN library, 
creation of the programmer's private 
library, and limitations of the compiler. 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and douonle-words. One 
word is four bytes long; a double-word is 
eight bytes long. When data is read into 
main storage, it is translated into inter- 
nal format. See Table 12 for storage allo- 
cation according to the type and length of 


the constant or variable. Prun 
Table 12. lacus Allocation faite 

ee ap ae pe a ene ee 1 

| Type |nength| Storage | 
|---------------}------4------------------ { 

| Logical | 1  |1 byte | 
pe 12 
| Real [| J 4 [4 bytes | [>" 
| | ee bytes sient 
|--------------- $-~---- fe 

| Integer | 2 |2 bytes(variable [3 
| | | only) | 

| | 4 Ja bytes | ce 
}--------------- $--=-=- ee 14 
| Complex [8 | 8 bytes Le 
| | EET EP ESE Loa rcicien I 
}---------~----- +------ +~------------------ { 

| Character | -- {1 character/byte va) 
| (BCD or EBCDIC) | | | 
}------------~-- +------ +~------------------ { 

| Hexadecimal | -- |2 characters/byte Ip 
Mate Nectar a as fio ee Dies Sse hati aaa geaeocs J 


MINIMUM SYSTEM REQUIREMENTS FOR THE FORTRAN 
COMPILER 


| The operating system is device independ- 
ent. In particular, the FCRTRAN compiler 
can operate with any combination of devices 
(shown in Table 3); however, there are cer- 
tain requirements. 


The FORTRAN IV compiler requires at 
least a System/360, Model 40 with 256K 
bytes of storage and the standard 
instruction set with the floating-point 
option. 


All programs require a device, such as, 


the 1052 keyboard printer, for direct 
operator communication. 
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At least one direct access device must 
be used for residence of the operating 
system. 


e The printer must have at least a 132 
character print line. 


PROGRAM OPTIMIZATION 


Facilities are available in the FORTRAN 
compiler that enable a programmer to opti- 
mize execution speed and to reduce the size 
of the object module. However, programs 
that are compiled using the IBM-supplied 
cataloged procedures are not optimized; 
OPT=0 is the default option. A programmer 


ié Must override this default option with 


either OPT=1 or OPT=2 to specify the use of 
the optimization facilities. (See "“Cata- 
loged Procedures" for overriding parameters 
in the EXEC statement. ) 


When using OPT=1, the entire program is 


. a loop, while individual sections of cod- 


ing, headed and terminated by labeled 
Statements, are blocks. The object code is 
improved by: 


e Improving local register assignment. 
(Variables that are defined and used in 
a block are retained (if possible) in 
registers during the processing of the 
block. Time is saved because the num- 
ber of load and store instructions are 
reduced.) 


e Retaining the most active base 
addresses and variables in registers 
across the whole program. (Retention 
in registers saves time because the 
number of load instructions are 
reduced.) 


e Improving branching by the use of RX 
branch instructions. (An RX branch 
instruction saves a load instruction 
and reduces the number of required 
address constants.) 


When uSing OPT=2, the loop structure and 
data flow of the program are analyzed. The 
object code is improved over OPT=1 by: 


e Assigning registers across a loop to 
the most active variables, constants, 
and base addresses within the loop. 


Moving outside the loop many computa- 
tions which need not be calculated 
within the loop. 


Recognizing and replacing redundant 
computations. 


Replacing (if possible) multiplication 
of induction variables by addition of 
those variables. 


e Deleting (if possible) references to 
some variables. 


e Using (where possible) the BXLE 
instruction for loop termination. 
BXLE instruction is the fastest condi- 
tional branch; time and space are 
saved.) 


Programming Considerations Using the 
Optimizer 


In general, the specification of OPT=1 
or OPT=2 causes compilation time to 
increase. However, the object code pro- 
duced iS more concise and yields shorter 
execution times. 


The object module logic, when optimized, 
is identical to the unoptimized logic, 
except in the following cases: 


1. If the list of statement numbers in an | 


Assigned GOTO statement is incomplete, 
errors, which were not present in the 
unoptimized code, may arise in the 
optimized code. 


2. The computational reordering done by 
text optimization may produce a dif- 
ferent execution time behavior than 
unoptimized code. For example, a test 
of an argument of a FORTRAN library 
function may be executed after the 
call to the function. This is caused 
by the movement of the function call 
to the back target of the loop when 
the function argument is not changed 
within the loop. 


DO 11 I=1,10 

DO 12 J=1,10 

IF (B(I).LT.0.)GO TO 11 
12 C(J)=SQRT(B(TI)) 
11 CONTINUE 


The square root computation will occur 
before the less-than-zero test, and 
will result ina message if B(I) is 
negative. A rearrangement of the pro- 
gram which could avoid this situation 
can be constructed: 


DO 11 I=1,10 
IF (B(I).LT.0.) GO TO 11 
DO 12 J=1,10 


12 C(J)=SORT(B(T)) 
11 CONTINUE 


(The 


A similar condition may result with 
the statements: 


CALL OVERFL(J) 
CALL DVCHK(J) 


These may produce different results 
when optimized, because computations 
cauSing overfiow, underflow, or 
divide-check conditions could be moved 
out of the loop in which the test 
occurs. 


If a programmer defines a subprogram 
with the same name aS a FORTRAN- 
supplied subprogram (e.g., SIN, ATAN, 
etc.), errors could be introduced dur- 
ing optimization. If the subprogram 
stores into its arguments, refers to 
COMMON, performs I/O, or remembers its 
own variables from one execution to 
another, the name of the subprogram 
must be specified in an EXTERNAL 
statement to allow the program to be 
optimized without error. 





In the statements 


COMMON X, Y¥1(10), W, Z 
EQUIVALENCE (Y1,Y2) 
DIMENSION Y2(12) 


there is an implied equivalence of Y2 
(11) and W and Y2(12) and Z. 


If the optimization feature is not 
used, and 
(where I=11) 


W=0 and A=Y2(T) 


then the value of Q is assigned to A. 
However, if OPT=2 is used, and 


W=0Q and A=Y2(I) (where I=11) 
there is no guarantee that the value 


of Q is assigned to A. 


With OPT=2, when a subprogram is 
called at one entry point for initial- 
ization of reference-by-name argu- 
ments, and at another entry point for 
subsequent computation, certain argu- 
ment values may not be transmitted. 
This applies to either arguments of 
the second call or any argument values 
redefined between calls and not ex- 
plicitiy defined in COMMON. 


In the following example the incremented 
value for I may not be transmitted to the 
subprogram due to the loop initialization 
optimization. 
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CALL INIT (I) SUBROUTINE INIT (/J/) 


I= 0 ENTRY COMP 
10 CALL COMP 
I=.I+#i 


GO TO 10 
Definition of a Loop 


The term ‘loop’ is used to refer to DO 
loops and other configurations of coding 
that a programmer regards as a loop. 


If a programmer writes a loop which is 
preceded by an IF statement, a conditional 
GOTO statement, Or READ statement with END 
Or ERR parameters, the loop is not identi- 
fied and efficiency is lost. A CONTINUE 
statement at the end of the range of a DO 
also obscures a loop (other than a DO loop) 
that follows the CONTINUE without interven- 
ing initialization. The insertion of a 
labeled CONTINUE statement or any other 
Suitable re-arrangement allows the loop to 
be recognized. 


The movement of computations from inside 
a loop to the initialization coding is done 
on the assumption that every statement in 
the loop is executed more frequently than 
the initialization coding. Occasionally, 
this assumption fails and computations are 
moved to a position where they are computed 
more often. One way to prevent such a move 
is to make a subprogram of the coding 
(statements and computations) that is 
executed less frequently within a loop than 
it would be in the initialization coding. 


The recognition of loops may also be 
obscured when the programmer knows that 
some paths through the program cannot 
occur; for example, 


10 IF (L) GOTO 200 

20 I=1 

30 ASSIGN 40 TO J 
GOTO 100 

4Q I=I +1 

50 IF (I.LE.N) GOTO 30 


100 B(I) = FUNCT (T) 
110 GoTO J, (40, 220) 
200 ASSIGN 220 TO J 
210 GOTO 100 

220 CONTINUE 
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From the programmer's: point of view, the 
statements 30 to 50 comprise a loop which 
is initialized by statement 20. The loop . 
causes an internal subprogram consisting of 
Statements 100 and 110 to be executed. 

From the compiler's point of view, it 
appears possible to execute statements in 
the order 10, 200, 210, 100, 110, 40, 50, 
30. The compiler does not recognize the 
loop, because it appears possible to enter 
it without passing through the TREES O Ree 
tion coding in statement 20. 


A loop can be obscured by the computed 
GOTO, because the compiler always assumes 
that one of the possible branches is to the 
succeeding statement, even though the pro- 
grammer knows that such a branch is impos- 
Sible. A loop can also be obscured by a 
call to the EXIT routine, because the com- 
piler assumes there is a path from such a 
statement to the next. 


Movement of Code Into Initialization of a 
Loop 


Where it is logically possible to do so 
with OPT=2, the optimizer moves computa- 
tions from inside the loop to the outside. 
This movement permits a programmer to do 
more straightforward coding without penalty 
in object code efficiency. 


If an expression is evaluated inside a 
loop and ail the variables in the expres- 
sion are unchanged within the loop, the 
computation is generally moved outside the 
loop into the coding sequence which ini- 
tializes the loop. Even if the constant 
expression is part of a larger expression, 
this constant expression may still be rec- 
ognized and moved. However, the movement 
depends on how the larger expression is 
written. Table 13 gives examples of 
expressions and the constant parts which 
are recognized and moved. 

* 


Common Expression Elimination 


With OPT=2, if an expression occurs 
twice in such a way that: 


1. any path starting at an entry to the 
program always. passes through the 
first occurrence of the expression to 
reach the second occurrence (and any 
subsequent occurrence), and 


Table 13. Constant Expressions 


pee oie ae a ee a eee 
| Expression where C1, C2,... 

| are constant in the loop 
----—-—-—-—-—--—-—-—--—-—--—-—------—- —- -- ---—--- - - --- - - 
| C1 + C2 * C3/SIN (C4) 

| C1 + C2 * C3 + Bl 

| C1 + Bl + C2 * C3 

| B1 + C1 + C2 * C3 

; C1 + B1 + B2 + C2 * C3 

| C1 * C2/B1 

Mae Ni ah a Sea ee Se ee 


2. any evaluation of the second (third, 
fourth, etc.) expression produces a 
result identical to the most recent 
evaluation of the first expression, 
then the value of the first expression 
is saved (generally) and used instead 
of the value of the second (third, 
fourth, etc.) expression. 


In statements such as: 


A=B + C + D 
E=C + D 


the common expression C + D is not recog- 
nized, because the first expression is com- 
puted as (B + C) + D. 


Induction Variable Optimization 


In a loop with OPT=2, an induction vari- 
able is a variable that is only incremented 
by a constant or by a variable whose value 
is constant in the loop. 


When an induction variable is multiplied 
by a constant in the loop, the optimizer 
may replace the multiplication with an 
addition by introducing a new induction 
variable into the loop. This new induction 
variable may make it possible to delete all 
references to the original induction vari- 
able. This deletion is likely to occur if 
the original induction variable is used 
only as a subscript within the loop, and 
the value of the subscript is not used on 
exit from the loop. 


Register Allocation 


Some variables are assigned to a regis- 
ter on entry to a loop and retained in the 
register through part or all of the loop to 
avoid loading and storing the variable in 
the loop. Within the loop, the variable is 
modified only in the assigned register, the 
value of the variable in storage is not 
changed. If necessary, the latest value of 


Ue ee tee che ee 
|Constant expression recognized and moved | 
}------------------------+------------------ 4 
l C1 + C2 * C3/SIN (C4) | 
| C1 + C2 * C3 | 
| C2 * C3 | 
| C2 * C3 | 
| C2 * C3 | 
| C1 * C2 | 
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the variable is stored after exit from the 
loop. 


The value in general register 13, which 
points to the start of a register save 
area, remains constant during execution of 
a subprogram. This register is used to 
refer to address constants and temporary 
variables, and for branching within the 
program. The value in general register 12 
remains constant and is used to refer to 
constants, variables, and arrays that are 
not in COMMON. 


General registers 14 and 15 are used for 
base addresses and index values on a 
strictly local basis. Floating-point 
register 0 and general register 0 are used 
as locally assigned arithmetic accumula- 
tors. General register 1 is used in con- 
junction with general register 0 for fixed- 
point arithmetic operations, and to point 
to argument lists in subprogram linkages. 


The remaining registers are used for 
accumulators, index values, base addresses, 
and high speed storage (a register 
reference is faster than a main storage 
reference). 


Because general register 13 is not ade- 
quate to provide RX branching throughout a 
large program, general registers ii, 10, 
and 9 may be pre-empted for RX branching 
(only if the program exceeds 4K, 8K, and 
12K bytes, respectively). (RR branches 
preceded by loads are required for branch- 
ing to points beyond the first 16K bytes of 
the program and possibly to the last part 
of a program if it exceeds 4K, 8K, or 12K 
bytes by a small amount.) 


COMMON Blocks 


Because each COMMON block is independ- 
ently relocatable, each requires at least 
one base address to refer to the variables 
in it. A sequence of coding that refers to 
a large number of COMMON blocks is slowed 
down by the need to load base addresses 
into general registers. Thus, if three 
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COMMON blocks can be combined into one 
block whose total size is less than 4096 
bytes, one base address can serve to refer 
to all the variables. (Many register loads 
can be avoided.) 


The order in which data is entered into 
a COMMON block may also affect the number 
of base addresses needed. For example, if 
an array of 5000 bytes is placed ina 
COMMON block and followed by 200 bytes of 
variables, two base addresses are needed: 
the beginning address of the first variable 
and the beginning address of the last dif- 
fer by more than 4096 bytes. However, if 
the variables preceded the array, one base 
address would suffice. 


ECUIVALENCE Statements 


Optimization tends to be weakened by the 
occurrence Of variables in EQUIVALENCE 
statements. 


When an array appears in an EQUIVALENCE 
statement, a reference to one of its ele- 
ments cannot be eliminated as a common 
expression, nor can the reference be moved 
out of a loop. However, the elimination 
and movement of subscript calculations used 
for making the reference is not affected. 


If a variable is made equivalent only to 
another variable (not in COMMON) of the 
same type and length, optimization is not 
weakened. The net effect is that the com- 
piler accepts the two names as alternate 
pointers to the same storage location. 
However, if a variable is made equivalent 
to another variable in any other way, all 
references to it are "immobilized': the 
references cannot be eliminated, moved, 
confined to registers, or altered in any 
way. 


Boundary Adjustment of Variables in COMMON 
Blocks and EQUIVALENCE Groups 


Variables in a COMMON block or 
EQUIVALENCE group may be in any order if 
the BOUNDRY=ALIGN option is specified in 
the FORTLIB macro instruction during system 
generation, because boundary alignment vio- 
lations are corrected during execution. 
(The FORTLIB macro instruction is described 
in the System Generation publication.) If 
the BOUNDRY=NOALIGN option is specified and 
boundary violations are encountered during 
execution of the object program, the job 
terminates. 
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If the BOUNDRY=ALIGN option of the 
FORTLIB macro instruction is specified and 
a boundary violation occurs in a FORTRAN 
main program or in a FORTRAN or assembler 
language subprogram, each instruction that 
refers to the improperly aligned variable 
requires that (1) the specification excep- 
tion resulting from this reference be pro- 
cessed, and (2) the boundary alignment rou- 
tine be invoked. Therefore, considerable 
programming efficiency is gained if the 
programmer ensures that all of the 
variables have proper boundary alignment. 
The FORTRAN IV Language publication con- 
tains information on boundary alignment. 


When boundary alignment is performed, 
program interrupt message IHC210I is 
issued. (This message is described com- 
pletely in the section “Program Interrupt 
Messages" in Appendix D). For boundary 
alignment, the letter A appears in the text 
of the message and the code 6 appears in 
the old PSW (program status word), which is 
included in the message. The number of 
warning messages printed is limited to 10. 
After 10 boundary alignment adjustments 
have been made, the message is suppressed, 
but boundary alignment violations continue 
to be corrected. 


Note: Even if BOUNDRY=ALIGN is specified 
and a boundary error occurs in an EXECUTE, 
LM (load multiple), or STM (store multiple) 
instruction in a subprogram written in 
assembler language, boundary adjustment 
does not take place and the job terminates. 
Therefore, if these instructions refer to 
improperly aligned data, they should not be 
used in assembler language subprograms. 


Multidimensional Arrays 


In general, references to higher dimen- 
Sional arrays are slower than references to 
lower dimensional arrays. Thus, a set of 
one-dimensional arrays is more efficient 
than a single two-dimensional array in any 
case where the two-dimensional array can be 
logically treated as a set of one- 
dimensional arrays. 


Constants occurring in subscript expres- 
Sions are accounted for at compile time and 
have no effect at execution time. 


Program Structure 


If a large number of variables are to be 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL 


ee 


DIMENSION E(20),1(15) 
READ (10)A,B,C 
CALL EXAMPL(A,B,C,D,E,F,1) 


END 


SUBROUTINE EXAMPL (X,Y,2Z2,P,0,2,0) 
DIMENSION Q(20),J(15) 


RETURN 
END 


time and storage are wasted by allocating 
storage for variables in both the main pro- 
gram and subprogram and by the subsequent 
instructions required to transfer variables 
from one program to another. 


The two programs should be written using 
a COMMON area, as follows: 


COMMON A,B,C,D,E(20),F,1(15) 
READ (10)A,B,C 
CALL EXAMPL 


END 


SUBROUTINE EXAMPL 
COMMON X,Y, 2,P,Q2(20),R,J5 (15) 


RETURN 
END 


Storage is allocated for variables in 
COMMON only once and fewer instructions are 
needed to cross reference the variables 
between programs. 


To reduce compilation time for 
equivalence groups, the entries in the 
EQUIVALENCE statement should be specified 
in descending order according to offset. 
For example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2(5,5), 
ARR3 (1,1), VAR1) 


compiles faster than the statement 


EQUIVALENCE (VAR1, ARR3 (1,1),ARR2(5,5), 
ARR1(10,10)) 


To reduce compilation time and save 
internal table space, equivalence groups 
should be combined, if possible. For 
example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2(5,5),VAR1) 


compiles faster and uses less internal 
table space than the statement 


EQUIVALENCE (ARR1(10,10),VAR1), 
(ARR2 (5,5) , VAR1) 


Logical IF Statements 


A statement such as: 
IF(A.LT.B.OR.C.GT.F(X) .OR..NOT.L)GOTO 10 
is compiled as though it were written: 


IF (A .LT. B) GO TO 10 

IF (C .GT. F(X)) GO TO 10 

IF (.NOT. L) GOTO 10 
Thus, if A .LT. B is found to be true, the 
remainder of the logical expression is not 
evaluated. 
Similarly, a statement such as: 

IF (D.NE. 7.0 .AND. E.GE.G) I=J 
is compiled as: 

IF (D.EQ. 7.0) GOTO 20 

IF (E.LT.G) GOTO 20 

I=J 
20 CONTINUE 


The order in which a programmer writes 
logical expressions in an IF statement 
affects the speed of execution. 

If A is more often true than B, then 
write A .OR. B rather than B .OR. A; and 
write B .AND. A rather than A .AND. B. 


If any of the following occur ina log- 
ical expression: 


1. amixture of both .AND. and -OR: 


operators | 


2. a.NOT. operator followed by a paren- 
thesized expression 


the entire logical expression must be eval- 
uated and efficiency is lost. 


Branching 


The statement — 
IF(A.GT.B) GOTO 20 


gives equivalent or better code than 
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IF (A-B) 10,10, 20 
10 CONTINUE 


The Assigned GOTO is the fastest condi- 
tional branch. 


The computed GOTO should be avoided 
unless four or more statement labels occur 
within the parentheses. 


The statement 
IF (I-2) 20, 30, 40 
is significantly faster than 


GOTO (20,30,40), I 


Indicators and Sense Lights 


At the start of program execution, the 
divide-check indicator, the overflow indi- 
cator, and the sense lights are not ini- 
tialized. Therefore, if a programmer 
intends to use the indicators or sense 
lights, he should initialize them prior to 
use; otherwise, erroneous results may be 
obtained. 


Name Assignment 


For its internal use, the compiler 
places names used for variables, arrays, 
and subprograms into a table. This table 
is divided into six strings and is searched 
many times during compilation. Names that 
are one character long are placed in the 
first string; names two characters long are 
placed in the second string; and so on. 

For faster compiling, the names should be 
distributed equally among the six strings. 


Conditional Branching 


A test for 0.0 in an IF statement is not 
recommended. Slight inaccuracies may cause 
the low-order bit(s) to be set. Therefore, 
the test for 0.0 may not yield the expected 
result. 


Use of DUMP and PDUMP 


Under the operating system, a program 
may be loaded into different areas of 
storage for different executions of the 
same job. The following conventions should 
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be observed when using the DUMP or PDUMP 
subroutine to insure that the appropriate 
areas of storage are dumped. 


If an array and a variable are to be 
dumped at the same time, a separate set of 
arguments should be used for the array and 
for the variable. The specification of | 
limits for the array should be from the 
first element in the array to the last ele- 
ment. For example, if an array TABLE is 
dimensioned as: 


DIMENSION TABLE (20) 


The following statement could be used to 
dump TABLE and the real variable B in hexa- 
decimal format and terminate execution 
after the dump is taken: 


CALL DUMP (TABLE(1) ,TABLE(20),0,B,B,0) 


If an area in COMMON is to be dumped at 
the same time as an area of storage not in 
COMMON, the arguments for the area in 
COMMON should be given separately. For 
example, if A is a variable in COMMON, the 
following statement could be used to dump 
the variables A and B in real format 
without terminating execution: 


CALL PDUMP (A,A,5,B,B,5) 


If variables not in COMMON are to be 
dumped, the programs should list each vari- 
able separately in the argument list. For 
example, if R, P, Q are defined implicitly 
in the program, the statement 


CALL PDUMP(R,R,5,P,P,5,0,0,5) 


should be used to dump the three variables. 
If 


~ CALL PDUMP(R,Q,5) 
is used, all main storage between R and Q 
is dumped. 


If an array and a variable are passed as 
arguments to a subroutine, the arguments in 
the call to DUMP or PDUMP in the subroutine 
should specify the parameters used in the 
definition of the subroutine. For example, 
if the subroutine SUBI is defined as: 


SUBROUTINE SUBI (X,Y) 
DIMENSION X(10) 


and the call to SUBI within the source 
module is: 


DIMENSION A(10) 


CALL SUBI(A,B) 


Table 14. Additional Built-In Functions 


rg a oe eee (soe Se 5 ae 
| . | | In- 

| Function | Entry Name | 
re ee {-------------- + 
|Logical intersection of| | 

| two arguments | AND | 

| | 
}----------------------- $-------------- $----- 
}Logical union | | 

| of two arguments | OR | 

| | | 
-~------~---—---------- $-------------- + 
|Logical 1's. | | 

| Complement of argu- | COMPL | 

| ment. | | 
aha ee bee Satara eee are ET beeen eae 


then the following statement in the subrou- 
tine should be used to dump the variables 
in hexadecimal format without terminating 
execution: 


CALL PDUMP (X(1),X(10),0,Y,Y,0) 
If the statement 
CALL PDUMP (X(1),Y,0) 
is used, all storage between A(1) and Y is 
dumped, due to the method of transmitting 


arguments. (Y does not occupy the same 
storage location as B.) 


Use of ERR Parameter in READ Statement 


Use of the optional ERR parameter for a 
READ statement can indicate the source pro- 
gram statement to which transfer should be 
made if an error is encountered during data 
transfer. When transfer has been made to 
that statement, the first subsequent READ 
in the source program provides the record 
that was in error. If this is not the 
record desired, an additional READ should 
be be issued. 


If the ERR parameter is omitted from the 
READ statement, an input/output device 
error terminates program execution. 


Support of AND, OR, and COMPL 


The functions listed in Table 14 are not 
part of the standard FORTRAN language, but 
are currently supported by the compiler. 
Caution should be exercised in their use 
Since continued support is not assured. 


ee Me ro eee, a alee here oh mea a 1 
e| No. of | Type of | Type of | 
| Arguments | Arguments |Function Value | 
+----------- 4----------- +---------------- { 
{ } Real*4 | | 
| 2 | or | Real *4 | 
| | Integer*4 | | 
}----------- 4----------- 4---------------- { 
| | Real*4 | | 
| 2 | or | Real *4 | 
| | Integer*4 | | 
+----------- ----------- {---------------- { 
| | Real*4 | | 
| 1 | or | Real*4 | 
| | Integer*4 | | 
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DATA Statements and Literal Constants 


These paragraphs describe DATA Statement 
initialization in cases when data does not 
exactly match the specifications for 
variables or arrays involved. 


Assume DIMENSION X(10). 
DATA X/1L5HABCDEFGHIJKLMNO, 10.0/ 
will be treated exactly the same as 
DATA X(1)/15HABCDEFGHIJKLMNO/ , X(2)/10.0/ 
namely, 

X(1)=ABCD 

X(2)=10.0 

X(3)=IJKL 

X (4) =MNOb 

X(5) through X(10)=bbbb 
Note the following points: 

1. If the array name is used or if the 
subscript is 1, the entire array is 
initialized. 

2. If the literal in the DATA statement 
is longer than one array item, and if 
one of the conditions in point 1 
holds, the excess characters of the 
literal will be placed into succeeding 
items. 

3. A constant following the literal with 
excess characters may replace some of 
the excess characters. 

4. In DATA X(5)/5HABCDE/, the characters 


ABCD are placed into X(5). E is not 
treated as an excess character. 
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Further examples: 
a. Assume DIMENSION Y(5) 
DATA ¥(1) ¢¥(3)/*ABCDEF", *X¥"/ 
will be initialized ae follows: 


Y (1) =ABCD 
Y¥ (2) =EFbb 
¥(3)=XYbb 
Y(4) through Y(5)=bbbb 


b. Assume DIMENSION Z(10) 


Then DATA 2(1),2(2),2(6),Z(5)/7 
eel 1OHABCDEFGHIJ, ‘ORSTU, 5H12345, 
gon gt? 5HGGGGG/ | 


will be initialized as follows: 


Z(1)=ABCD 
Z(2)=QRST 
Z(3)=IJdbb 
Z(4)=bbbb 
Z(5)=GGGG 
Z(6)=1234 
Z(7)through Z2(10)=bbbb 


The above describes the current imple- 
mentation for data initialization; however, 
the implementation is subject to change and 
it should be used with caution. 


Direct Access Programming 


Using direct access I/O rather than 
sequential I/O can decrease load module 
execution time: the direct access state- 
ments in the FORTRAN IV language enable the 
programmer to retrieve a record from any 
place on the volume without reading all the 
records preceding that record in the data 
set. For efficiency, direct data sets 
should be pre-formatted. If, however, the 
NEW subparameter is specified in the DD 
statement for the data set, a FORTRAN sup- 
plied load module will format the data set 
before the program begins processing. 


Note: Direct access I/O statements and 
sequential I/O statements may not be used 
to process the same direct data set within 
the same FORTRAN load module. However, 
sequential I/O statements may process a 
direct data set in one load module, while 
direct access I/O statements process it in 
another. 


Not all applications are suited to 
direct access I/O, but an application that 
uses a large table that must be held in 
external storage can use direct access I/0 
effectively. An even better example of a 
direct access application is a data set 
that is updated frequently. Records in the 
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techniques are used. 


data set that are updated frequently are 
called master records. Records in other 


data sets used to update the master records 


are called detail records. 


Each of the master records should con- 
tain a unique identification that distin- 
quishes this record from any other master 
record. Detail records used to update the. 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
stars, and they wish to collect data for 
each star on a data set. The unique number 
for each star can be used as identification 
for each master record, and any detail 
record used to update a master record for a 
Star would have to contain the same number 
as the star. 


A FORTRAN program indicates which record 
to FIND, READ, or WRITE by its record posi- 
tion within the data set. The ideal situa- 
tion would be to use the unique record 
identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomiz- 
ing technique. A randomizing technique is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if six-digit num- 
bers are assigned to each star, the ran- 
domizing technique may truncate the last 
two digits of the number assigned to the 
star and use the remaining four digits as a 
record position. For example, star number 
383320 would be assigned position 3833. 
Another example of a randomizing technique 
would be a mathematical operation performed 
on the identification number, such as 
Squaring the identification number and 
truncating the first four digits and the 
last four digits of the result. Then the 
record for star number 383320 is assigned 
record position 3422. There is no general 
randomizing technique for all sets of iden- 
tification numbers. The programmer must 
devise his own technique for a given set of 
identification numbers. 


Two problems arise when randomizing 

The first problem is 
that there may be a lot of space wasted on 
the volume. The solution in this instance 
must be developed within the randomizing 
technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first thousand record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the 
truncation. 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 





two digits are truncated, the stars identi- 
fied by numbers 383320, 383396, and 383352 
randomize to the same record location - 
3833. Records that randomize to the same 
record location are called synonyms. This 
problem can be solved by developing a dif- 
ferent randomizing technique. However, in 
some Situations this is difficult, and the 
problem must be solved by chaining. 


Chaining is arranging records ina 
string by reserving an integer variable in 
each record to point to another record. 
This integer variable will contain either 
an indicator showing that there are no more 
records in this chain, or the record loca- 
tion of the next record in the chain. Rec- 
ords chained together are not adjacent to 
each other. Figure 47 shows the records 
for star numbers 383320, 383396, and 
383352. 


When records are chained, the first 
record encountered for a record position is 
written in the record position that 
resulted from randomizing the identifica- 
tion number. Any records that then ran- 
domize to that same record location must be 
written in record positions to which no 
other record identifications randomize. 

The space for these synonyms can be allo- 
cated either at the end or the beginning of 
the data set. However, this space must be 
allocated when the data set is first writ- 
ten. For example, if the randomizing tech- 
nique assigns master records to record 
locations between 1 and 9999, the program- 
mer may wish to reserve record locations 
10000 to 12000 for master records that 
become synonyms. 


The programmer must keep a record 1loca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The program- 
mer should set up a dummy record in his 


Identifier Chain 


| 
| 383320 
| | 383396 


i 
{Position for] 
| 
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data set to maintain this record location 
counter. When the direct access data set 
is created, the record location counter 
should be set at the lower limit of the 
record positions available for synonyms 
(i.e., record location 10000 in the example 
used above). 


Also an indicator should be reserved to 
indicate to the program that the end of a 
chain has been reached. Since no record 
position is designated as 0, 0 can be used 
to indicate the end of a chain. 


Before a FORTRAN program writes a direct 
access data set for the first time, the 
data set must be created by writing “skele- 
ton records" in the space that is to be 
allocated for the direct access data set. 
These skeleton records should be written by 
an installation-written program. After the 
skeleton records are written, the direct 
access data set must be classified as OLD 
in the DISP parameter of the DD statement. 
However, if the skeleton records are not 
written before direct access records are 
written by the FORTRAN program for the 
first time, a FORTRAN load module automat- 
ically creates the data set and writes the 
skeleton records. The programmer indicates 
that skeleton records have not been written 
by specifying NEW in the DISP parameter. A 
FORTRAN load module writes skeleton records 
according to the format described in the 
Supervisor and Data Management Service pub- 
lication in the section on direct data set 
processing. 


Figure 48 shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Example 3 in Appendix B shows a program 
and job control statements used to update a 
direct access data set. 





T T 
| | Record | 
| 383396 {Position for| 

, | 383352 | 

1 L 





| 1 

| 383352 | of 
| 
AL 


Serer es reser meee 


Figure 47. Record Chaining 
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Direct Access Programming Considerations 


In a job that creates a data set that 
will reside on a direct-access device, the 
DCB subparameter of the DD statement must 
specify DSORG = DA in order that the label 
that is created will indicate that this is 
a direct-access data set (see "Creating a 
Direct Data Set" in the publication IBM 


| System/360 Operating System: Supervisor 


and Data Management Services, Form 


Space must be allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct access volume. 
direct access data sets, the space allo- 
cated in the SPACE parameter should be con- 
Sistent with the record length and number 
of records specified in the DEFINE FILE 
statement in the FORTRAN program. For 
example, in the DEFINE FILE statement 


For 


DEFINE FILE 8(1000,40,E,1) 


the number of records is specified as 1000 
and the record length is specified as 40. 
When this program is executed, the DD 
statement for this data set should contain 
the SPACE parameter 


SPACE= (40, (1000) ) 


indicating that space is allocated for 1000 
records, and 40 bytes for each record. Set 
for the ‘First PR AMO os apleaiants 
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The DEFINE FILE statement for a data set 
does not have to be in the same source 
module in which I/O operations occur. For 
example, the DEFINE FILE statement can be 
given in a main program with a subprogram 
to perform the I/O operations on the data 
set. However, the associated variable in 
the DEFINE FILE statement is only changed 
PS RE RE oS phe. Source 
fe essen SPMD he PEE ISR NE. FI 4S statement | 
| ‘occurs, “Even if the associated variablé“t 
“passed” in COMMON, the associated variable 
iis changed only by I/O operations that 
joccur in the source module in which the 
(DEFINE FILE statement i chanics 
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An associated variable shoaid.: mot be 
passed as a parameter between a main pro- 
gram and its subprograms because the asso- 
ciated variable is not passed in the same 
way that other variables are passed. Other) 
variables reflect the result of any opera- 
tions performed on them in the subprogram. 


\ An associated variable is not changed by 
\ operations performed on it in the - 
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Figure 48. 


data sets. By using the FIND statement, 
load module execution time can be 
decreased. For example, the statements 


10 A=SOQRT(X) 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 


76 READ(8'101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on another 
data set while record number 101 could be 


retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets. 


5 FIND(8*101) 
10 A=SQRT(X) 


52 E=ALPHA+BETA*SIN(Y) 
65 WRITE(9)A,B,C,D,E 
76 READ(8"°101)X,Y 


COMPILER RESTRICTIONS 


e The maximum level of nesting for DO 
loops is 25. 


e The maximum number of implied DOs per 
statement is 20. 


e The maximum number of arguments ina 
Statement Function definition is 20. 


e The maximum number of characters 
allowed ina literal constant is 255. 


e The maximum number of characters 
allowed in a PAUSE message is 255. 


e The maximum number of nested references 
to another statement function within a 
Statement function definition is 50; 
the maximum number of times a statement 
function may be nested is 50. 


e The debug facility is not supported. 


Note: In this version of the compiler, 
Statement Functions are expanded in-line. 


LIBRARY CONSIDERATIONS 


The FORTRAN library is a group of sub- 
programs residing in the partitioned data 
set SYS1.FORTLIB. For a detailed descrip- 
tion of the FORTRAN library, see the 
FORTRAN IV Library Subprograms publication. 
A programmer can change the subprograms in 
the library; he can add, delete, or substi- 
tute library subprograms; or he can create 
his own library. These topics are dis- 
cussed in detail in the Utilities 
publication. 


When the FORTRAN library is changed for 
maintenance or to provide additional fea- 
tures, precompiled programs in a user 





library require special attention to bene- 
fit from the changed library modules. This 
can be accomplished by using the linkage 
edit facilities to include the current 
library modules, and storing the resultant 
load module back into the FORTRAN library. 
When the facilities of the linkage editor 
are used to provide an overlay structure or 
to replace a single control section, care 
should be taken not to mix FORTRAN library 
modules that are at diverse operating sys- 
tem levels. 


DD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 49). Other DD statement 
parameters are discussed in "Job Control 
Language" and "Creating Data Sets." 


. Channel Optimization 


The SEP parameter indicates that I/O 
operations for specified data sets are to 
use separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement, in 
which 


SEP= (ddname[,ddname]...) 


appears, are assigned to a channel dif- 
ferent from those assigned to the I/0 
operations for data sets defined by the DD 
statements "ddname". Assigning data sets 
whose I/O operations occur at the same time 
to different channels increases the speed 
of I/O operations. 


I/O Device Optimization 

UNIT subparameters can be specified for 
device optimization. 
VOLUME MOUNTING AND DEVICE SEPARATION: 


QQ 
cupesene oe 


[, S9EP=(ddnamel,ddname]...)]) 


can be specified for volume mounting and 
device separation. The "name" and number 
of units are discussed in the section "Data 
Definition Statement". | 


DEFER 


indicates that the volume(s) for the 
data set need not be mounted until 
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needed. The control program notifies 
the operator when to mount the volume. 
Deferred mounting cannot be specified 
for a new output data set on a direct 
access device. 


SEP=(ddnamel[,ddname]...) | 
is used when a data set is not 
assigned to the same access arms on 
direct access devices as the data sets 
identified by the list of ddnames. 
This subparameter is used to decrease 
access time for data sets and is 
meaningful only for direct access 
devices. The operating system honors 
the request for device separation if 
possible, but ignores the SEP sub- 
parameter if an insufficient number of 
access armsS are available. The SEP 
subparameter in the UNIT parameter 
provides for device separation, while 
the SEP parameter provides for channel 
separation. 


DEVICE AFFINITY: The use of the same 
device by data sets is specified by: 


UNIT=AFF=ddname 


The data set defined by the DD statement in 
which this UNIT parameter appears uses the 
Same device as the data set defined by the 
DD statement "“ddname" in the current job 
step. 


|24The maximum number of repetitions allowed is 7. 

{2If only one "“ddname" is specified, the delimiting parentheses may be omitted. 
{2If neither "n" nor "P" is specified, 1 is assumed. 
|“This subparameter is applicable only for direct access 
15This subparameter is the only keyword subparameter shown in this figure. 
{remaining subparameters shown in the UNIT, SPACE, SPLIT, and SUBALLOC parameters are 


|positional subparameters. 


as only "name" is specified, the delimiting parentheses may be omitted. 


da a aa aaa a aa 1 
| SEP=(ddname[l,ddname]...1) 2 | 
| | 
| RS A a aaa 2]4 a | 
| UNIT= |AFF=ddname | 
| | 
| /SPACE= (ABSTR, (quantity, beginning-address) ) | 
| | 
{ CYL \ | 
| \SPLIT=(n| ),average-record-lengthf, (primary-quantity[,secondary-quantity])|] ) | 
| | | 
| jer \ | 
| |SUBALLOC= (x CYL s (primary-quantity[,secondary-quantity] ) | 
| average-record-length| | 
| ddname | 
stepname.ddname ) | 
| stepname. procstep.ddname | 
4 
| 
| 
| 
| 
| 
| 
| 
| 
4 


re 49. 


76 


Ee Ee EE ED ETD eee Crem EE ene ENTE enpee Ene SEED END ETERS QED SUED GENES ERED GRC CD ENED CED GRRE GETEP GEEED CORED SERED GRE GOED GHEE COED GED GEES ate SEED GEE HED CEE oD Ee ee 


Direct-Access Space Optimization 


The SPACE parameter can be used to spec- 
ify space beginning at a designated track 
address on a direct access volume. The 
SPLIT or SUBALLOC parameters may be speci- 
fied instead of SPACE to split the use of 
cylinders among data sets on a direct 
access volume or to use space specified for 
another data'‘set which it did not use. 

(The other SPACE parameter is discussed in 
"Creating Data Sets.") 


SPACE BEGINNING AT A SPECIFIED ADDRESS: 


SPACE=(ABSTR, (quantity, beginning-address) ) 
specifies space beginning at a partic- 
ular track address on a direct access 
volume. The "quantity™ is the number 
of tracks allocated to the data set. 
The “beginning address" is the rela- 
tive track address on a direct access 
volume where the space begins. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 
SETS: 


If several data sets use the same 
direct access volume in a job step, proces- 
Sing time can be saved by splitting the use 
of cylinders among the data sets. Split- 
ting cylinders eliminates seek operations 
on separate cylinders for different data 
sets. Seek operations are measured in mil- 
liseconds, while the data transfer is meas- 
ured in microseconds. 


devices. 
All the 
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7CYL 
SPLIT=(n| |, average-record-length 
, (primary-quantity 
(, secondary-quantity)) } 


is substituted for the SPACE parameter when 
the use of cylinders is split. If CYL is 
specified, "n" indicates the number of 
tracks per cylinder to be used for this 
data set. If “average record length" is 
specified, "n" indicates the percentage of 
tracks per cylinder used for this data set. 
The remaining subparameters are the same as 
those specified for SPACE in "Creating Data 
Sets." 


More than one DD statement in a step 
will use the SPLIT parameter. However, 
only the first DD statement specifies all 
the subparameters; the remaining DD state- 
ments need only specify "n". For example, 


//STEP4 EXEC PGM=TESTFI 
//FTO8FO001 DD SPLIT=(45, 800, (100, 25) ) 


//ET17F001 DD SPLIT=(35) 


//FT23F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in pre- 
vious steps may not have used all the space 
allocated to them ina DD statement. The 
SUBALLOC parameter may be substituted for 
the SPACE parameter to permit a new data 
set to use this unused space. 


TRK 
SUBALLOC= (4 CYL 
\average-record-length 


(, primary-quantity 


[, secondary-quantity]), 


ddname 
stepname.ddname ) 


stepname. procstep.ddname 


The data set from which unused space is 
taken is defined in the DD statement 
"“ddname", which appears in the step “step- 
name." (The step must be in the current 
job.) The other subparameters specified in 
the SUBALLOC parameter are the same as the 
subparameters described for SPACE in 
"Creating Data Sets." 
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SYSTEM OUTPUT 


The compiler, linkage editor, and load 
modules produce aids which may be used to 
document and debug programs. This section 
describes the listings, maps, card decks, 
and error messages produced by these com- 
ponents of the operating system. 


COMPILER OUTPUT 


The compiler can generate a listing of 
source statements, a table of source module 
names, a structured listing of source 
statements, an object module listing, a 
table of source module labels, and an 
object module card deck. Source module 
diagnostic messages are also produced dur- 
ing compilation. 


Source Listing 


If the SOURCE option is specified, the 
source listing is written in the data set 
specified by the SYSPRINT DD statement. An 
example of a source program listing is 
Shown in Figure 50. This printout is the 


source listing of Sample Program 1 shown in 


Appendix C of the FORTRAN IV Language pub- 
lication. (This program will be used 
throughout the remainder of this publica- 
tion for purposes of illustration.) 


Cross Reference Listing 


If the compiler XREF option is speci- 
fied, a cross reference listing of 
variables and labels is written in the data 
set specified by the SYSPRINT DD statement. 
The variable names are listed in alphabet- 
ical order, according to length. (Variable 
names of one character appear first in the 
listing.) The labels are listed in ascend- 
ing sequence along with the internal state- 
ment number of the statement in which the 
label is defined. 


For both variable names and labels, the 
listing also contains the internal state- 
ment number of each statement in which the 
variable or label is used. Figure 51 shows 
a compiler cross reference listing produced 
for the program in Figure 50. 


Structured Source Listing 


If the EDIT option is specified, a 
structured source listing is written in the 
data set specified by the SYSPRINT DD 
statement. This listing is independent of 
the usual source listing and indicates the 
loop structure and logical continuity of 
the source program. | 


Each loop is assigned a unique three- 
Gigit number. Entrance to the loop is 
indicated by (xxx before the internal 
statement number of the first statement in 
the loop; exit from the loop is indicated 
by xxx) on a separate line before the next 
non-comment line. The xxx is the loop 


number. 
| C PRIME NUMBER PROBLEM 
ISN 0002 100 WRITE (6,8) 
ISN 0003 & FORMAT (52H FOLLOWING IS A LIST GF PRIME NUMBERS FROM 1 TO 1000/ 
119X,1H1/19X_1H2/19X51H3) 
ISN 0004 101 I=5 
ISN 0005 3 A=] 
ISN 0006 102 A=SQRTtA) 
ISN 0007 103 J=A 
ISN 0008 104 DU 1 K=39Je2 
ISN 0009 105 L=I/K 
ISN 0010 106 IF¢L*#K-1)1,2,4 
ISN 0011 1 CONTINUE 
ISN 0012 107 WRITE (6,5)1 
ISN 0013 5 FORMAT (120) 
ISN 0014 z 1=1+2 
ISN 0015 106 IF(1000-1)7 943 
ISN 0016 4 WRITE (6,9) 
ISN 0017 9 FORMAT (14H PROGRAM ERROR) 
ISN 0018 7 WRITE (6,6) 
ISN 0019 6 FORMAT (31H THIS IS THE END OF THE PROGRAM) 
ISN 0020 109 STOP 
ISN 0021 END 


Figure 50. Source Module Listing 
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INTERNAL STATEMENT NUMBERS 
0006 Q007 
0609 001C 0017 0014 0014 O15 


0005 0006 
000% 0065 
0007 0008 
0003 0009 0010 
0009 0C10 

0006 


DEFINED REFERENCES 
0011 oocs 90010 
0014 0010 

0005 00i5 

0016 0610 0015 
0013 0012 

0019 0018 

0018 0015 

0093 0062 

0017 0016 

0092 

0004 

0096 

0077 


Compiler Cross Reference 


Figure 51. . 
| Listing 


Indentations are used to show dominance 
relationships among executable source 
Statements. Statement A dominates state- 
ment B if A is the last statement common to 
all logical paths from which B receives 
control. Statement A is called a domina- 
tor, statement B is called a dominee. By 
this definition, a statement can have only 
one dominator, but a dominator may have 
several dominees. For example, a computed 
GO TO statement is the last statement 
through which control passes before reach- 
ing three other statements. The GO TO 
statement is a dominator with three 
dominees. 





A dominee is indented from its dominator 
unless it is either the only dominee or the 
last dominee of that dominator. The line 
of sight between a dominator and its 
dominee(s) may be obscured by intervening 
statements. This is a dominance discon- 
tinuity and is indicated by C--- ona 
separate line above the dominee. Listing 


Comments and non-executable statements 
are not involved in dominance relation- 
ships; their presence never causes a 
dominance discontinuity. Comments line up 
with the last preceding non-comment line; 
nonexecutable statements line up either 
with the last preceding executable state- 
ment or with the first one following. 


Figure 52 shows a structured source 
listing produced for the program in Figure 
50. 


Object Module Listing 


If the LIST option is specified, the 
object module listing is written in the 
data set specified by the SYSPRINT DD 
statement. The listing is in pseudo- 
assembly language format; i.e., all 
instructions are not legal assembly lan- 
guage instructions. 


The listing is arranged in a column for- 
mat as follows: 


Column 1: The address (in hexadecimal) of 
the instruction. 
Column 2: The assembly format (in hexadec- 


imal) of the instruction. 


C PRIME NUMBER PROBLEM 


ISN 100 WRITE (6,8) 


TSN & FORMAT (52H FOLLOWING IS A LIST OF PRIME NUMBERS FROM 1 TO 1000/ 
LI9XeLHL/19X,y LH2/19X_1H3) 


ISN 1Q1 T=5 
CO002TSN 3 A=l 

IS 102 A=SQRT(A) 

ISN 103 J=A 

ISN 104 DO 1 K=39Je92 
COOLISN 105 L=I1/K 

ISN 106 IF(L*®K-1)19294 

ISN CONTINUE 
001) C 

ISN WRITE (6,5)1 

ISN FORMAT (120) 

ISN I=1+2 

ISN IF (1000-1)7 4,53 
002) C 

ISN WRITE (6,9) 


ISW 3 FORMAT (14H PROGRAM ERROR) 


ISN WRITE (6,96) 


ISN 6 FORMAT (31H THIS IS THE END GF THE PROGRAM) 


ISN sToOP 
END 


Figure 52. Structured Source Listing 
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Column 3: Source labels and compiler 
generated labels (compiler 
generated labels contain six 
digits). 

Column 4: The actual instruction. 

Column 5: Significant items referred to in 


the corresponding instruction, 
e.g.-, entry points, labels, 
variables, constants, and tem- 
poraries (.yxx where y is S, T, 
or Q and xx is two digits). 


Figure 53 shows an object module listing 
produced for the program in Figure 50. 


Storage Map 


If the MAP option is specified, a table 
of names, which appear (or are implied) in 
the source module, iS written in the data 
set specified by the SYSPRINT DD statement. 
The table includes: 


1. The name of the program. 


2. The hexadecimal size of the program in 
bytes. 


3. A list of all variable names, state- 
ment function names, subprogram names, 
and internal function names. 


W. An indication of the use of each name, 
as follows: 


C indicates variables in COMMON 

E indicates variables that appear in 
an EQUIVALENCE statement 

IF indicates an internal function 

NR indicates variables not referred to 

SF indicates statement functions 

XF indicates subprograms 

XR indicates variables, arrays, or 
subprograms that are referenced by 
name 


5. An indication of the use of each vari- 
able, as follows (alone or in 
combination): 


A indicates that the variable name 
was used as an argument; i1.e., 
appeared in a parameter list 


F indicates that the value cf the 
variable was used at some time; 
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i.e., the variable name appeared on 
the right of an equal sign 


S indicates that a value was stored 
into the variable; i.e., the vari- 
able name appeared on the left of 
an equal sign 


6. The type and ilength of each variable. 


7. The relative address assigned to each 
variable. (All functions and subrou- 
tines have a relative address of 
00000.) 


8. A map of each COMMON block, followed 
by a map of any equivalences made for 
the block. The name of each block is 
given if a name was assigned, along 
with the hexadecimal size of the block 
in bytes, and the name, type, length, 
and relative address of each variable 
in the block. For each equivalence, 
the name of the variable is given 
along with its displacement (offset) 
from the beginning of the common 
block. 


Figure 54 shows a storage map produced for 
the program in Figure 50. 


Label Map 


If the MAP option is specified, a table 
of statement numbers, which appear (or are 
implied) in the source module, is written 
in the data set specified by the SYSPRINT 
DD statement. This table includes: 


1. The statement number of each source or 
generated label. 


2. The relative address assigned to each. > 


Figure 55 shows a label map produced for 
the program in Figure 50. 


Object Module Card Deck 


If the DECK option is specified, an 
object module card deck is produced. This 
deck is made up of four types of cards -- 
TXT, RLD, ESD, and END. A functional 
description of these cards is given in the 
following paragraphs. 
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Figure 53. Object Module Listing (Part 1 of 2) 


System Output 81 


0062428 
N0U2Z4C 
0&G250 
006254 
06U258 
O8C2Z59 
OCUZ5A 
00C25B 
006025c 
00025D 
ADDRESS UF EPILOGUE 
O0025& 
000262 
0@0266 
000268 
PROLOGUE 
O0COG26E 
O0CZT2 
COG2T6 
000278 


0evecass 

45 £0 F O10 
58 FC D O8C 
45 EC F 034 
05 

46 

40 

46 

40 

FO 


109 


58 FO D 08C 
45 EG F 034 
0540 
404040F 0 
ADDRESS UF 
58 FO 3 N8C 
45 £0 F 040 
18 D3 
47 FO D 098 
ADCON FORK PROLDGUE 
00CG20 O000026E 
ADCON FUR SAVE AREA 
0GOO24 

ADCON fox cPTLOGUE 

0O0CGBO 
*ARAMETER LISTS 

OGOOFC 
TEMPORARIES 

000140 

000144 
ADCONS FOK 3 BLOCK LABELS 


O000COBO 


000002 5E 
ADCONS Fix 
80000120 
ADCONS FOR . 
00CO00000 
O0CODN00. 


a 


Figure 53. Object Module Listing (Part 2 of 


MAIN / 


TYPE ADD. 
I*4 000.124 
R¥4 900000 


TAG 
A SFA 
LS 


TYPE ADD. 
R*¥4 000120 
1*4 000130 


NAME 


Figure 54. Storage Map 
LABEL ADDR LABEL  AQOR 
3 900170 105 000100 
2 90020C 4 000228 
Figure 55. Label Map 


OBJECT MODULE CARDS: Every card in the 
object module deck contains a 12-2-9 punch 
in column 1 and an identifier in columns 2 
through 4. The identifier consists of the 
characters ESD, RLD, TXT or END. The first 
four characters of the name of the program 
are placed in columns 73 through 76 with 
the sequence number of the card in columns 
77 through 80. 


ESD Card: Four types of ESD cards are 
generated as follows: 


ESD, type 0 - contains the name of the 
program and indicates the 
beginning of the object 
module. 

ESD, type 1 - contains the entry point 

name corresponding to an 

ENTRY statement ina 


subprogram. 
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RLD Card: 


WC XL4* 00000048! G+Q 
BAL 14, 164 0,15) 
L. .. .15e 1404 0213) IBCOM= 
BAL 14s 524 0915) 
DC Xil*00000005' 
DC. X&1*Q0000040" 
bc XL1"090000408 
DC XL1*0000004Q! 
vc XL1*000000408 
DC XL1L*OQOQ000FO! 
L 155 1404. 0213) 
BAL 14e 524 0,15) IBCOM= 
BC XL2°%O4G0 5408 
Bc XL4"404040F 0" 
L 155: 1401 07-32 Oy i a Rie eee gus 
BAL l4e 64f Oy15) Were re ee’ TBCOM= 
LR 13, 3 ee 
ac 15,9 1520 09139 Erte le PE OGRE 
DC XL4*Q000026E* 
OC XL49900000B808 
DC XL4*Q000025E" 
DC XL4°80000120! A 
DC XL4*00000000'. 
DC XL4* Q0G00000* 
2) 


SIZE OF PROGRAM O0O27C HEXADECIMAL BYTES 


TAG 
SF 


TYPE ADU. 
1*4 96012C 


NAME TAG 
J SF 
{8COM= F KF 


TYPE AbD. NAME 
I*4 000128 K 
iz4 900000 


LABEL ADDR LABEL ADDR 
1 OOO1EC 107 0001FO 
7 00023C 
ESD, type 2 - contains the names of sub- 


programs referred to in the 
source module by CALL 
Statements, EXTERNAL state- 
ments, explicit function 
references, and implicit 
function references. 


contains information about 
each COMMON block. 


ESD, type 5 - 


The number 0, 
column 25. 


1, 2, or 5 is placed in cara 


An RLD card is generated for. 
external references indicated in the ESD, 
type 2 cards. To complete external 
references, the linkage editor matches the 
addresses in the RLD card with external 
symbols in the ESD card. When external 
references are resolved, the storage at the 


address indicated in the RLD card contains 
the address assigned to the subprogram 


indicated in the ESD, type 2 card. RLD 


cards are also generated for a branch list 
produced for statement numbers. 


TXT Card: The TXT card contains the con- 
Stants and variables used by the programmer 
in his source module, any constants and 
variables generated by the compiler, coded 
information for FORMAT statements, and the 
machine instructions generated by the com- 
piler from the source module. 


END Card: One END card is generated for 
each compiled source module. This card 
indicates the end of the object module to 
the linkage editor, the relative location 
of the main entry point, and the length (in 
bytes) of the object module. 


OBJECT MODULE DECK STRUCTURE: Figure 56 
indicates the FORTRAN object module deck 
structure. 


Source Module Diagnostics 


Two types of diagnostic messages are 
written by the compiler - informative and 
error/warning messages. 


Source Module Informative Messages: Source 
module informative messages inform the pro- 


grammer or operator of the status of the 
compiler. A message is generated when the 
compilation has begun, and when the compil- 
er options are processed. For a descrip- 
tion of these messages, see Appendix D. 


Source Module Error/Warning Messages: All 
error/warning messages produced are written 


in a group following the source module 
listing and object module name table. 
Figure 57 shows the format of each message 
as it is written in the data set specified 
by the SYSPRINT DD statement. 


In addition, following the statement in 
which a serious error is detected, the fol- 
lowing appears in the source listing: 


ERROR DETECTED - SCAN POINTER = X 


















RLD Cards for 
the Branch List 





TXT Cards for 
the Branch List 





TXT Cards 
for Object 
Module Instructions 















ESD, Type 2 and 
RLD for Compiler 

Generated External 
References 





TXT Cards 
for Source 
Module Constants 





ESD, Type 2, and 
RLD for External 
References in 
CALL, EXTERNAL, 
and Statements 
Using Subprograms 









ESD, Type 5 
Indicating the 

Existence of the 
COMMON Area 














TXT Cards 
for Compiler 
Generated 

Constants 





TXT Cards for 
Coded FORMAT 


Statements 


ESD, Type 1 Giving 
Entry Points from 
ENTRY Statements 


ESD, Type 0 
Giving the Name 
of the Object 

Module 






Figure 56. Object Module Deck Structure 


where 


x 


represents the position of the char- 
acter pointed to by the compiler's 
scan pointer at the time the error is 
detected. Any FORTRAN key words and/ 
Or meaningless blanks are ignored in 
determining the position of the 
character. (If the statement is found 
to be invalid during the classifica- 
tion process, the value of x always 
equals one.) 
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ERROR NO. ERROR MESSAGE 


ITEKXxxT message 


. 

| 

| 

| 

| 

| 

| 

fF 

| a is the internal statement | 

| number of either the state-| 

| ment in error or the state-| 

| ment following the last | 

| previous executable | 

| statement. | | 

| b is a source label (state- | 

{ ment number) | 

| c is a variable name | 

| xXx is a three-digit message | 

| number 

| is the actual message | 

| printed | 
J 


Figure 57. Format of Diagnostic Messages 


There are three types of messages: (1) 
a terminal error message, (2) serious error 
messages, and (3) warning messages. The 
terminal error message returns a condition 
code of 16; the serious error messages a 
code of 8; and the warning messages a code 
of 4. For a description of error/warning 
messages, see Appendix D. 


LINKAGE EDITOR OUTPUT 


The linkage editor produces a map of a 
load module if the MAP option is specified, 
Or a cross reference list anda map if the 
XREF option is specified. The linkage edi- 
tor also produces diagnostic messages, 
which are discussed in the Linkage Editor 
publication. 


CONTROL SECTION 


ENTRY 


NAME ORIGIN LENGTH NAME LOCATION 
MAIN 00 27C 


IHC SSQRT# 280 AC 
ITXC FCOMH* 330 FED 


IHCUORT * 1330 8 
IHCTRGH * 1338 258 
IHCFCVTN*® §=61590 FF3 
ADCON= 
FCVIG 
IHCFIQSH® 2588 CF2 
| FIOCS= 
IHCUATBL® 3280 638 


Figure 58. Load Module Map 
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Module Map 


The module map is written in the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage 
editor, each program (main or subprogram) 
and each COMMON (blank or named) block is a 
control section. 


Each control section name is written 
along with origin and length of the control 
section. For a program and named COMMON, 
the name is listed; for blank COMMON, the 
name SBLANKCOM is listed. The origin and 
length of a control section is written in 
hexadecimal numbers. A segment number is 
also listed for overlay structures (see the 


Linkage Editor publication. 


For each control section, any entry 
points and their locations are also writ- 
ten; any functions called from the data set 
specified by the SYSLIB DD statement are 
listed and marked by asterisks. 


The total length and entry point of the 
load module are listed. Figure 58 shows a 
load module map produced for the program in 
Figure 50. 


Cross-keference List 


If the linkage editor XREF option is 
specified, a cross reference list is writ- 
ten with the module map. This cross 
reference list gives the location from 
which an external reference is made, the 
symbol externally referred to in this con- 
trol section, the control section in which 
the symbol appears, and the segment number 
of the control section in which the symbol 
appears. Unless the linkage editor is 
building an overlay structure, the cross 
reference list appears after the module map 
for all control sections. Figure 59 shows 
the cross reference list produced for the 
program in Figure 50. 


NAME LOCATION NAME LOCATION NAME LOCATION 


FDIOCS= 


160C FCVAG 
LFBC FCVCO 


LUCATION REFERS TO SYMBOL IN CONTROL SECTION 
IHCSSQRT 
THCFCOMH 
IHCFCOMH 
IHCFCVTH 
1HCF GSH 
IHCUOPT 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHCFCVTH 
IHC TRCH 
1HCFCOMH 
LHCFCVTH 
IHCF 10SH 


138 SQRT 
13C IBCOM= 
304 IBCOM= 
1108 ADCUON= 
11D0 FLOCS= 
1VEO IHCUDPT 
11D¢C FCVEO 
LLEO FCVLO 
11E4 FCVIO 
11E8 FCVCO 
LIEC FCVAO 
11F0 FCVZO 
11C8 IHCTRCH 
1490 I6COM= 
1494 ADCON= 
1498 FLOCS= 
2444 18COM= IHCFCOMH 
2680 THCUATBL THC UAT BL 
2680 IHCFCOMH 
ENTRY ADDRESS 
FOTAL LENGTH 


Figure 59. Linkage Editor Cross Reference 


List 


LOAD MODULE OUTPUT 


At execution time, FORTRAN load module 
diagnostics are generated in three forms - 
error code diagnostics, program interrupt 
messages, and operator messages. An error 
code indicates an input/output error or a 
misuse Of a FORTRAN library function. A 
program interrupt message indicates a con- 
dition that is beyond the capacity of 
System/360 to correct. An operator message 
is generated when a STOP or PAUSE is 
executed. 


Error Code Diagnostics and Traceback 
without Extended Error Message Facility 


If an error is detected during execution 
of a FORTRAN load module, a message and a 
diagnostic traceback are written in the 
error message data set (see "FORTRAN Job 
Processing"). The message is of the form: 


message text 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 
REG. 15, REG. OQ, REG. 1 


These error messages are described in 
Appendix D. For the error conditions num- 
bered 211 through 214, 217, 219, 220, and 
231 through 237, the message will consist 
of only IHCxxxI where xxx is a 3-digit 
error code. The errors detected by the 
FORTRAN mathematical functions will provide 
message text describing the error condi- 
tion. The traceback, which follows the 
error message, is a list of routines in the 
direct line of call to the routine in 
error, in reverse order of use. After the 
traceback is completed, for error messages 
IHC2171I and IHC218I, control is passed to 








the call routine statement designated in 
the END and ERR parameters respectively of 
the FORTRAN READ statement if that parame- 
ter was specified. In all other cases, 
execution of the job step is terminated and 
a condition code of 16 is returned to the 
operating system. 


Each entry in the traceback contains the 
name of the called routine, an internal 
statement number (ISN) from the calling 
routine (if one was generated for that 
call), and the contents, in hexadecimal, of 
register 14 (which indicate the point of 
return to the calling routine). 


The first routine listed in the trace- 
back is the one that called the liorary 
subprogram in which the error occurred, 
except when the name given is IBCOM. Then, 
the error could have occurred in ZTHCFCOMH 
or one of the routines that it calls: 
IHCFCVTH, ILHCNAMEL, Or THCFIOSH. "he error 
code in the message indicates the accual 
Origin of the error. 


Note: For an assembler language program or 
subprogram, the routine name field in the 
traceback contains the identifier specified 
in the SAVE macro instruction or equivalent 
coding. (If the identifier specified is 
longer than eight characters, only the 
first eight appear.) If no identifier is 
specified, the traceback routine name trieid 
is either blank or its contents aré mean- 
ingless in the traceback. 


Internal statement number identifiers 
are generated for function references and 
calls when the ID option is specified on 
the EXEC card for the compile step. These 
identifiers appear in the traceback, except 
for FORTRAN calls to IBCOM for which no 
identifiers are generated. If NOID is 
specified, no identifiers are generated and 
the internal statement number field will be 
blank. 


Note: For an assembler language program or 
subprogram, the internal statement number 
field contains the value of the binary cal- 
ling sequence identifier specified in the 
CALL macro instruction or equivalent cod- 
ing. If no identifier was specified, the 
field is either blank or its contents are 
meaningless in the traceback. 


If the traceback cannot be completed, 
the message TRACEBACK TERMINATED is issued 
and the job step is terminated. This mes- 
Sage appears only if either 13 names of 
subprograms appear in the traceback or a 
calling loop has been detected (e.g., sub- 
program A calling B calling A). 


At the end of the traceback, whether it 
was completed or not, the entry point of 
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pcg cs Ea ae at ed 
| 


| 
ENTRY POINT = 00005000 


EP) anes SEES EE COR CRED EEE GER: GED CRs anes UE ED GO ET EE Oe EE GEES OR co ED Coe GED coms eroe? Ee ORE aE aan SE Ene ae GRE a one ee OED ae eee 


: 
IHC2191 | 
{TRACEBACK FOLLOWS ROUTINE ISN REG. 14 REG. 15 REG. 0 REG. 1 l 
IBCOM 820068FC XXXXXXXX XXXXXXXX  XXXXXXXX__— | 
| MASTR 010 00005378 l 
PAYROLL 00003148 XXXXXXXX  XXXXXXXX XXXXXXXX_~ | 

| 

J 


eee ea er a oe ee IE PAY WROD Sree ENRON OE RA ME Rete eee 
Sample Traceback for Execution-Time Errors 


Figure 60. 


the main FORTRAN program is given in 
hexadecimal. 


Figure 60 shows the traceback informa- 
tion placed in the error message data set 
for the following example. 


Example: A FORTRAN program PAYROLL calls 
the subroutine MASTR, which contains a READ 
statement. The IHCFIOSH routine is called 
to perform the input operation, but an 
error condition arises because there is no 
DD statement for the data set. 


Explanation: PAYROLL was entered at loca- 
tion 5000 and called MASTR at internal 
statement number (ISN) 10 in PAYROLL. 
IBCOM (in this case, the error occurred in 
the IHCFIOSH routine) would have returned 
to location 68FC in MASTR; MASTR would have 
returned to location 5378 in PAYROLL and 
PAYROLL would have returned to location 
3148 in the supervisor. Execution ter- 
minates and a condition code of 16 is 
returned to the operating system. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are pro- 
duced when one of the following occurs: 


Protection Exception (4) 
Addressing Exception (5) 
Specification Exception (6) 
Data Exception (7) 
Fixed-Point Divide Exception (9) 

e Exponent-Overflow Exception (C) 
Exponent-Underflow Exception (D) 
Floating-Point Divide Exception (F) 


86 


The characters in parentheses following 
the exceptions are PSW codes that appear in 
the program interrupt message to indicate 
the type of exception. Appendix D contains 
a complete description of the message and 
its format. 


The program interrupt messages are writ- 
ten on a data set specified by the pro- 
grammer. (See "FORTRAN Job Processing.") 
Operator intervention is not required for 
any of these interruptions. 


ABEND Dump 


If a program interrupt occurs that 
causes abnormal termination of a load 
module, that part of main storage belonging 
to his program and significant registers, 
indicators, etc., are dumped. (For infor- 
mation about interpreting an ABEND dump, 
see the Messages, Completion Codes, and 
Storage Dumps publication.) 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during. 
load module execution. Operator messages 
are written on the device specified for 
operator communication. For a description 
of these messages, see Appendix D. 


This section describes the error diag- 
nostic facilities available during program 
execution when the extended error message 
facility has been requested. 


If the extended error message facility 
is specified at system generation time, the 
user is provided with more information 
about errors detected in a FORTRAN program 
at object time. Such errors are either 
data dependent or program errors which are 
not syntactical or semantic in nature. 


With the extended error message facili- 
ty, a short message text is printed along 
with the error number when an error occurs. 
The data in error is also printed as a sup- 
plement to the message text. An option is 
available to suppress the printing of mes- 
Sages. A summary error count, printed when 
a job is completed, informs the user how 


Many errors occurred, even though printing 


of messages may have been suppressed during 
the run. 


The Traceback map is printed after each 
error occurrence with subroutine flow 
traced back to the main program before con- 
tinuing execution. The Traceback map may 
be optionally suppressed. Unless the 
extended error message facility is speci- 
fied, the Traceback map is printed only for 
terminal errors. 


The facility exists for calling a user- 
written subroutine to correct erroneous 
data rather than accept a standard correc- 
tion when using the extended error message 
facility. Default and dynamic control of 
the number of times an error may occur 
before execution is terminated is also 
offered. 


For each error condition, the user has 
both dynamic and default control over th 
action that follows. : 


FUNCTIONAL CHARACTERISTICS 


With the extended error message facili- 
ty, an error monitor with additional fea- 
tures is called when an error is detected 
by a FORTRAN module. The error monitor 
uses the Option Table, which contains an 
entry for each error condition. The Option 
Table controls the actions that are taken 
after the detection of the error. 


EXTENDED ERROR MESSAGE FACILITY 


When the error monitor is called, it is 
passed such information as the error iden- 
tification number, the text of the appro- 
priate message for printing on the object 
error unit, and a pointer to the data in 
error. 


Contained in the Option Table is infor- 
mation about how many messages to print, 
how many errors to allow before terminating 
the job, indication of whether or not 
Traceback is desired, and the address of 
the user-written corrective subroutine, if 
one exists. 


The Option Table consists of a double- 
word preface, then a double-word entry for 
each error condition. If the extended 
error message facility is not specified, 
the Option Table is reduced to the preface 
alone. The format of the Option Table is 
shown in Figure 61, which also lists 
default values in the preface fields. An 
Option Table entry is described in Table 
15. Default values for each error condi- 
tion are shown in Table 16. 


The error monitor tests the Option 
Table, then acts according to its settings. 
After printing (or suppressing printing of) 
the message text and data in error, the 
action after an error occurrence may be: 


1. Terminate the job. 


2. Take a standard corrective action, 
then continue execution. 


3. Call a user-written closed subroutine 
to correct the data in error, then 
continue execution. 


SUBPROGRAMS FOR USING EXTENDED ERROR 
MESSAGE FACILITY 


To aid the programmer in the use of the 
extended error message facility, several 
CALL statements may be used in his FORTRAN 
source program. These statements allow 
access to the Option Table to alter it 
dynamically. 


All passed parameters, unless otherwise 
indicated, are 4-byte integers. 
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pore A eae ee eee ee ee Se - 
| fete ge ee 1 | 
A | | 
| Preface }-—----— ~------ t------ T----- { | 
| (.2& | Cc | D | E [ | 
| ~-----}------ }------ t-----4 | 
| First | 1 {| 2 | 3 , 4 | | 
| Entry t------ tm nm 4-—-——— L-———— { | 
| | 5 | | 
| }------ T7777" To t----- { | 
| Second 1 | 2 | 3 | 4 | | 
| Entry t----—— rasa lactase 1—————— 4 —— { | 
| | 5 | | 
| ------- t------ T----- enemas { | 
| L-——_] —__| —~| |_| 
| | 
| | | 
| Tt | 
| {------ t------ ~------ | Samia { | 
| Last } 1 | 2 | <3 | 4 | | 
| Entry as > Sa +—----- che een mm orm { | 
| | 5 | | 
| ee ee 41 | 
| | 
-———-—7-----— sm aa era ad { 
| | Byte | | 
{|Field|Length| Description | 
}----- $------ $-~----~---------------------4 
| A | 4 | Count of number of entries | 
| | } in the Option Table. | 
| | | Default is 95. | 
| | | | 
} B 1 | Boundary alignment switch | 
| | | (bie. 1) O=NOALIGN; 1= | 
| | | ALIGN. Default is ALIGN. | 
| | | | 
| ¢c | 2 | Error message handling | 
| | | selection indication. | 
| | | FF=NO; OO=YES. Default is | 
| | | YES. | 
| | | | 
| D | 21 | Align count when error mes-| 
| | | sage handling is not | 
| | | selected. Default is 10. | 
| | | | | 
| E | 1 | Not used (reserved). | 
| | | | 
f 1+ | 12 | Number of errors allowed | 
| | | before termination. | 
| | | | 
| 2 | 1 | Number of messages to be | 
| | | printed. | 
| | | | 
| 3 | 121 | Number of errors that have | 
| | | occurred. | 
| | | | 
; 4 | 14 | Option bits. (See "Option | 
| | | Table Entry Description"). | 
| | | | 
, 5 | 4 | Address of user exit rou- | 
| | | tine, if specified. | 
bese cae 5 Sa a eee nee ne eR ne eee ae ck ee ee J 
Figure 61. Option Table 
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Accessing and Altering the Option Table 


To access an entire entry from the 
Option Table without altering it, the pro- 
grammer issues the following statement: 


CALL ERRSAV (IERNO, TABENT) 
where 


IERNO 7 
is an integer equal to the error num- 
ber to be referenced in the Option 
Table. Should a negative number be 
used erroneously, a message will be 
printed indicating that the number is 
out of the range of the error table. 


TABENT 
is the address of an 8-byte storage 
area where the accessed table entry is 
to be stored. 


When it is desirable to modify an entry 
temporarily and save the current entry for 
later restoration, the CALL ERRSAV state- 
ment should be used. 


To restore an entry to the Option Table, 
the statement is: 


CALL ERRSTR (IERNO, TABENT) 
where 


ITERNO 
is an integer equal to the error num- 
ber for which the entry is to be 
restored in the Option Table. Should 
a negative number be used erroneously, 
a message will be printed indicating 
that the number is out of range of the 
error table. 


TABENT 
is the address of an 8-byte storage 
area containing the table entry data. 


Note: Certain entries may be protected 
against alteration because of the way in 
which the Option Table was originally sup- 
plied. If an attempt is made to change an 
unalterable entry, the request is ignored. 





Individual options, numbering up to 5, 
may be changed in the Option Table by the 
CALL ERRSET statement. The procedure for 
altering only one option while leaving the 
others intact is described in the defini- 
tion of the parameters. It is accomplished 
by omitting the final parameter or the last 
two parameters from the calling sequence, 
or by supplying zero for a parameter to 
indicate no change. The CALL ERRSET state- 
ment is as follows: 


Table 15 OPTION TABLE Entry Description 
PSS > a Saaremaa as Net eee Dee ety ne GUE rs pt ae etm Fe gee td ea eae 1 
| | Default | | 
|Field| Length | Settings? | Description | 
}-----4-------- }------------ {-----------~----------------=----------=------------------- 
| 1 |1 byte | 102 | Contains a number When the count in field 3 matches this| 
| | | | number, the job is terminated. The count maximum is 255. | 
| | | | A count of zero means unlimited number of occurrences 3 | 
| | | | Any count greater than 255 supplied by ERRSET will set | 
| | | | this field to zero. 
|-----4-------- 4------------ {----------------------------------------------------------- { 
} 2 |1 byte | > | A count of the number of messages to be printed. Message | 
| | | | printing is suppressed thereafter. A count of zero means | 
| | | | no messages are to be printed. | 
}-----+-------- ------------ }------------------------------------------~---------------- { 
| 3  |1 byte | 0 | A count of the number of errors that have occurred where 0| 
| | | | means no errors have occurred. | 
|-----4-------- ------------ }----------------------------------------------------------- { 
| 4  |1 byte | | 8 option bits defined as follows: | 
| | | | | 
| | Bit Oo | 0 {| Control character indicator: | 
| | | | 0 = none, 1 = single space | 
| | 1 | 1 {| Table entry modifiable: O0=no, i=yes (See Note 5) | 
| | 2 | 0 | Extension of count of field 3 | 
| | 3 |(see Note 6)| Buffer contents to be printed: 0O=no, 1=yes | 
| | 4 | 0 | Unused | 
| | 5 | 0 | Unlimited number of messages allowed: 0=no, i=yes | 
| | 6 | 1 | Traceback required: 0=no, 1=yes | 
| | 7 | 1 | Unused | 
|-----+-------- +------------ }----------------------------------------------------------- { 
| 5 {4 bytes | 1 | Address of user's exit routine | 
—— Bop ae gape ete ee ek enna ne ca a a cn a | 


|4The default values shown apply to all error numbers unless excepted by a footnote. 


|2Errors 208, 210, and 215 are set as unlimited, and errors 217 and 230 are set to 1. 
|2?When the user sets the count of allowed errors as unlimited, the FORTRAN job may loop 


|*Error 210 is set to 10, and errors 217 and 230 are set to 1. 
{SThe entry for error 230 is not modifiable. 


| 
| 
| endlessly unless the operator intervenes. | 
| 
| 
| 


|©This entry is set to 0 except for error numbers 212, 215, 218, 221, 222, 223, 224, and 


| 225. | 
Ma at a J 
CALL ERRSET (IERNO,INOAL, INOMES , ITRACE, all messages; a zero value will leave 
ADDUSE, IRANGE) the entry unaltered. Any number 
greater than 255 means that the mes- 
where sage should always be printed. 
IERNO 
is an integer equal to the error numb- | ITRACE 
er to be referenced in the Option is an integer with the value 0, 1, or 
Table. Should any number that is not 2, with these meanings: 


within the range of the Option Table 
be used, a message will be printed. 


INOAL 


0 - Option not to be changed. 


is an integer indicating the number of 1 - A Traceback will not be printed 
errors to be allowed before termina- after an error occurrence. 
tion of execution. If INOAL is zero 


or negative, this option is not 


2 - A Traceback will be printed after 


altered. Any number greater than 255 an error occurrence. 
will mean an unlimited number of 


occurrences. 


INOMES 


A value for ITRACE which is not 1 or 2 
will leave the option unchanged 


is an integer indicating the number of ADDUSE 


messages to be printed 


A negative is an optional parameter that may 


value for INOMES is used to suppress contain: 
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The value 1 as a 4-byte integer, indi- IERNO. This name must appear in 


cating that the Option Table is to an EXTERNAL statement in the 

be set to show no user exit (i.e., | source program, and the routine to 
Standard corrective action will be which control is to be passed must 
used when continuing execution). | | be either in the FORTRAN library 


Or supplied at a a 
The name of a closed subroutine that ° | 
is to be executed after the occur-_ The value 0, indicating that the table 
rence of the error identified by entry is not altered. 


Table 16. Option Table Default Values 


aaa i a aaa bean 5 aaa en or Fo ee Me oe ge are to. (oS qo 
| {Number of |Number of | | [Print | iseandara | | 
|Error| Errors | Messages| _|Modifiable|Buffer |Traceback|Corrective |User| 
| Code] Allowed | Allowed |Print Control | Entry |Content|] Allowed | Action [exit] 
|-----+---------- +--------- }-------------- {---—------ +------- +--------- +----------- $----4 
| 207 | 10 | 5 | NA | Yes | NA | Yes =| Yes | No | | 
} 208 |Unlimited | 5 | NA | Yes | NA | Yes | Yes | No | 
{| 209 | 10 | 5 | NA | Yes | WA | Yes | Yest | Not| 
| 210 |Unlimited | 10 | NA | Yes | NA | Yes | Yest | No | 
} 211 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
} 212 | 10 | 5 {No character | Yes | Yes | Yes | Yes | No | 
| | | | supplied? | | | | | | 
} 213 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
} 214 | 10 s) | NA | Yes | NA | Yes | Yes | No. | 
} 215 [Unlimited | 5 | NA | Yes | Yes | Yes | Yes | No | 
{ 216 | 10 | 5 | NA | Yes | NA | Yes | Yes? | No | 
} 217 | de | 1 | NA | Yes | NA | Yes | Yes | No | 
| 218 | 105 | 5 { NA | yes | Yes? | Yes | Yes | No | 
| 219 | 10° | 5 | NA | Yes | NA | Yes | Yes | No | 
| 220 | 10 | > | NA | Yes | NA | Yes | Yes | No | 
{| 221 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
| 222 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
| 223 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
J} 224 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
} 225 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
| 230 | 1 | 1 | NA | No | WA | Yes | No | No | 
} 231 | 10 | 5 | NA | Yes | WA | Yes | Yes | No | 
| 232 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
| 233-| 10 | 2 | NA | Yes | WA | Yes | Yes | No | 
| 301| | | | | | | | | 
— 5 Smarr ier een i een eee ee Yeeeah he e ener eet ENE Bere eer eres y Eeeppenten seyemereente nee ose 
|4No corrective action is taken except to return to execution. For boundary alignment, | 
| the corrective action is part of the support for misalignment. For divide check, the | 
| contents of the result register are not altered. | 
|2If a print control character is not supplied, the overflow line is not shifted to | 
| incorporate the print control character. Thus, if the device is tape, the data is j 
| intact, but if the device is a printer, the first character of the overflow line is | 
| not printed and is treated as the print control. Unless the user has planned the | 
| overflow, the first character would be random and thus the overflow print line control| 
| can be any of the possible ones. It is suggested that when the device is a printer, | 
| the option be changed to single space supplied. 7 | 
|-Corrective action consists of return to execution for SLITE. | 
|\*If the END parameter is present in a READ statement but the number of occurrences of | 
{ this error is greater than the number allowed, the END is still honored. | 
|SFor an I/O error, the buffer may have been partially filled or not filled at all when |. 
| the error was detected. Thus, the buffer contents could be blank when printed. When | 
| an ERR parameter is specified in a READ statement, it is honored even though the error| 
| occurrence is greater than the amount allowed. | | 
[©The count field does not necessarily mean that up to 10 missing DD cards will be | 
| detected in a single debugging run, since a Single WRITE performed ina rove could — | 
| cause 10 occurrences of the message for the same missing DD card. | 
Me A i a Ba Sah a a pe ee eel ot J 
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IRANGE 
is an optional parameter specifying 
that the INOAL, INOMES, ITRACE and 
ADDUSE options are to be applied to 
the range of error numbers IERNO to 
IRANGE. If IRANGE is smaller than 
IERNO, IRANGE is ignored. If IERNO is 
212, IRANGE has a special meaning as 
follows: 


1 - Supply single space on overflow 
line. 


If IRANGE is not 1, then the option is 
set for no print control. 


If the print control entry is not to 
be changed, IRANGE must be omitted 
from the call to ERRSET. 


Obtaining Traceback 


Under the extended error message facili- 
ty, a user may dynamically ask for a Trace- 
back and continued execution. To obtain 
Traceback, a 


CALL ERRTRA 


is issued. The call has no parameters. 
This statement may not be used when the 
error message facility has not been speci- 
fied at system generation time. If the 
statement is used under such conditions, 
ERRTRA is assumed to be user-supplied. 


USER-SUPPLIED EXIT 


Any user-written subprogram may utilize 
the extended error message facility for 
error message control. The requirements 
are: 


1. The routine that detects an error will 
issue a CALL ERRMON statement with 
appropriate parameters, as described 
below. 


2. An error number is assigned to the 
error condition and an Option Table 
entry is made available for the error 
condition. 


The use of the extended error message 
facility requires certain planning at the 
installation level. The routine that uses 
the error monitor for error service should 
have the status of an installation general 
purpose function similar to the IBM- 
supplied mathematical functions. The num- 
ber of installation error conditions must 
be known at the time the FORTRAN library is 
created by system generation so that 
entries will be provided in the Option 


Table. The error numbers chosen for user 
subprograms are restricted in range. IBM- 
designated error conditions have reserved 
the error codes from 000 to 301. Error 


‘codes for installation-designated error 


Situations must be assigned in the range 
302 to 899. The error code is used to find 
the proper entry in the Option Table. 


The CALL ERRMON statement is as follows: 


CALL ERRMON (IMES, IRETCD,IERNO,DATAI, 
DATA2,...) 


where 


IMES 
is the address of an array that con- 
tains, in EBCDIC characters, the text 
of the message to be printed. The 
first item of the array contains an 
integer whose value is the length of 
the message. Thus, the first 4 bytes 
of the array will not be printed. If 
the message length is greater than 133 
characters, it will be printed on two 
or more lines of printed output. 


IRETCD 
is an integer variable that will be 
set upon return from the error monitor 
as follows: 


0 - The Option Table indicates that 
Standard correction is required. 


1 - The Option Table indicates that a 
user exit to a corrective routine 
has been executed. The functicr 
is to be re-evaluated using arqu- 
ments supplied in DATA1, DATAZ.... 
For input/output type errors, 1 
indicates that the user does not 
want a standard correction. 


LTERNO 
is the number of the error condition 
aS an integer. This number :.dentifies 
a unique error situation for which 
there is an entry in the IERNC field 
of the Option Table. Shoulda any num- 
ber that is not within the range of the 
Option Table be used, a message will 
be printed. 


DATA1 

DATA2 
are parameters containing the argument 
Or arguments in error upon entry. 
There must be one parameter for each 
argument. Upon return, results 
obtained from user-written corrective 
action are placed in these variables. 
Since the variables" content can be 
altered, they should be used only in 
the CALL to the error monitor; other- 
wise, the user of the function may 
have literals or variables destroyed. 
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Since DATA1 and DATA2 are the parameters 
which the error monitor will pass toa 
user-written routine to correct the 
detected error, care must be taken to make 
sure that these parameters agree in type 
and number in the call to ERRMON and in a 
user-written corrective routine, if one 
exists. 


Considerations for a User-Supplied Exit 


Routine 


When the error monitor calls a user- 
written subroutine for corrective action, 
it uses the equivalent of the following 
FORTRAN statement: 


CALL x(IRETCD, IERNO, DATA1, DATA2,...) 
where 


x 
is the name of the routine placed in 
the Option Table. The other parame- 
ters are the same as those of ERRMON. 
If the error occurred during an input/ 
output operation (i.e., error codes 
211 to 237), the subroutine x must be 
one that does not contain any FORTRAN 
I/O statements -- i.e., READ, WRITE, 
PBACKSPACE, END FILE, REWIND, PDUMP, 
DEBUG, Or ERRTRA. 


Although the user-written corrective 
routine may change the setting of IRETCD, 


OPTION TABLE CONSIDERATIONS 


When a user-written subroutine is to be 
executed, then the Option Table entry for 
that error should be altered to contain the 
address of the user-exit routine. 


Although it is not possible to supply 
user exits when the Option Table is created 
by system generation, an installation may 
construct an Option Table to be placed in 
the FORTRAN library that does contain user- 
exit addresses. However, this procedure 
will result in loading all user-exit sub- 
routines mentioned in the Option Table with 
a V-type adcon. 


The user must issue a CALL ERRSET to 
insert a user-exit address in the Option 
Table that is created by system generation. 


When changing the Option Table, setting 
error occurrence to be unlimited (i.e., 
specifying a number greater than 255) may 
cause the program to loop indefinitely 
unless the operator intervenes. This use, 
therefore, should be made with caution. 
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such a change is subject to the following 
restrictions: 


1. If IRETCD is set to 0, then DATAi1 and 
DATA2 must not be altered by the | 
corrective routine, Since standard 
corrective action is requested. If, 
in fact, DATA and DATA2 are altered 
when IRETCD is set to 0, the opera- 
tions that follow will have unpredict- 
able results. 


2. Only the values 0 and 1 are valid for 
IRETCD. A user-exit routine must 
ensure that one of these values is 
used if it changes the return code 
setting. 


The user-written exit routine can be 
written in FORTRAN or in assembler lan- 
guage. In either case, it must be able to 
accept the call to it as shown above. The 
user-exit routine must be a closed subrou- 
tine that returns to the caller. 


If a user-written exit routine is writ- 
ten in assembler language, then the end of 
the parameter list can be checked. The 
high order byte of the last parameter will 
be 80. If the routine is written in FOR- 
TRAN, the parameter list must match in 
length the parameter list passed in the 
CALL to the error monitor. 


Meaningful actions the user may take if 
he wishes to correct an error are described 
in Tables 17, 18, and 19. 


HOW TO CREATE OR ALTER AN OPTION TABLE 


The Option Table supplied during the 


'_ process of system generation may be altered 


dynamically for any particular FORTRAN job 
by the use of the subprograms ERRSET and 
ERRSTR. To provide a new set of options 
for the entire installation, the Option 
Table must be reassembled and link edited 
into the FORTRAN library after system 
generation and before the system is used. 
A procedure for accomplishing this is 
described below. 


An assembler language macro definition 
can be used to generate an Option Table. 
The macro definition and use of the macro 
for each Option Table entry are supplied as 
input to the assembler procedure ASMFCL to 
replace the system generated Option Table 
with the desired one. 


An example of the use of such an 
assembler language macro definition is 
shown in Figure 62. 


Table 17. Corrective Action After I/O Error Occurrence 


an aca a aaa SS ae a ee ee ne De at a a ee re a ee en ee ee 1 
| | Parameters | | | 
|Error| Passed to| | | 
|Code | User | Standard Corrective Action | User-Supplied Corrective Action | 
}-~---}------~—--}----~-—--------------------------—- {o-~------------=--~---------------------- { 
211 A,B,C {Treat format field containing C as (a) If compiled FORMAT statement, put | 
Jend of FORMAT statement hexadecimal equivalent of character in|] 

| C (see Note 1). 

(b) If variable format, move EBCDIC 


character into C (See Note 1) 


+ 

i | | 

| | | 

| | | | 
| | | | 
| | | | 
| | | i 
| | | 
| 212 | A,B,D jInput: Ignore remainder of I/0 |See Note 2 | 
| | [list. | | 
| | JOutput: Continue by starting new | | 
| | joutput record. Supply carriage | | 
} | |control character if required by | | 
| | JOption Table. | | 
| | | | | 
| | | | 
} 213 | A,B,D |ignore remainder of I/O list |See Note 2 | 
| | | 
| | | | 
} 214 | A,B,D JInput: Ignore remainder of I/0 |If user correction is requested, the | 
| | Jlist. {remainder of the I/O list is ignored. | 
] | |Output: Change record format to V. | | 
| | | | | 
| | | | 
} 215 | A,B,E {Substitute zero for the invalid |The character placed in E will be sub- | 
| | | character |stituted for the invalid character | 
| | | | (see Note 1) | 
| | | | | 
| | | | | 
} 217 | A,B,D {Increment FORTRAN sequence number |See Note 2 | 
] ] | and read next file | | 
| | | | | 
| | | | | 
| 218+| A,B,D,F |Ignore remainder of I/O list |See Note 2 | 
| | | | | 
| | | | | 
] 219-| A,B,D |Ignore remainder of I/O list {See Note 2 | 
J 224] | | 
| | | | | 
1 | | | | 
| 225 | A,B,E |Substitute zero for the invalid |The character placed in E will be sub- | 
| | | character |stituted for the invalid character { 
| { | | (see Note 1) | 
| | | | | 
| | | | | 
| 231 | A,B,D |Ignore remainder of I/O list jSee Note 2 | 
| | | | | 
| | | | | 
|} 232 ] A,B,D,G |Ignore remainder of I/O list |See Note 2 | 
| | | | | 
| | | | | 
} 233 | A,B,D j|Change record number to list maximum|See Note 2 | 
| | jallowed (32,000) | 
| | | | 
| | | | 
| 234-|] A,B,D {Ignore remainder of I/O list See Note 2 | 
| 236| | | 
| | | 
| | 
i | 
} J 


| | 
237 | A,B,D,F itqnere remainder of I/O list 
i 


ee ae ED ae ceenne i eee cas end cars aoe os Sew ae Oe ee a eee a A eS A A eS nN a Ye Sa SE ce ee ent QS ote ee ec aS Se AA Me ne SE ne SP NR SN ES SY US SES AO ce AIRS OE AR SE A SS SS ES ES OE ES SS GT SER REED ERE SO Sn 


Meanings : 


A - Address of return code field (Integer*4) 

B - Address of error number (Integer*4) . 

C - Address of invalid format character (Logical*¥1) 
D —- Address of data set reference number (Integer*4) 
E - Address of invalid character (Logical*#1) 

F - Address of DECB 

G - Address of record number requested (Integer *4) 


1. Alternatively, the user can set the return code to 0, thus requesting a standard corrective 
action. 


2. The user can do anything he wishes except perform another I/O operation - i.e., issue a 
READ, WRITE, BACKSPACE, END FILE, REWIND, PDUMP, DBUG, Or ERRTRA. On return to the Library, 
the remainder of the I/O request will be ignored. 


+If error condition 218 (I/O error detected) occurs while writing error messages on the object 
error unit, then the job is terminated since there is no place to exhibit the message. 


If no DD card has been supplied for the object error unit, error messages cannot be printed and 
the job is terminated. 


| 
| 
| 
| 
| 
{ 
| 
j 
| 
| Notes: 
| 
i 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


fae cemee meme com Sm SS eines SOND cS ES cen eS cee cee reese ce ees ee ee ee ee ee ee 


Extended Error Message Facijsty 93 


Corrective Action After Mathematical Subroutines Error Occurrence (Part 1 of 3) 


ons 
User-Supplied 
Corrective Action 
(See Note 1) 


I 
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Table 18. 
a eee 5 a a a a a a pe eT ar ag Ge ee mt gt Ne ge ee eT pe ee 1 
| | Opti 
| | | | |---------------------- T 
; | | ] Invalid | Standard | 
jError |] _ FORTRAN | Argument | Corrective { 
| Code | Reference | Range | Action | 
}-------}------------------- }~-------~--------- +-----~---------------- + 
} 216 J] CALL SLITE (TI) {| I>4 | the call is treated | 
| | | | as a no operation | 
| | | | 
|} 216 | CALL SLITET | I>4 | J=2 | 
| | (I,J) | | | 
| | | | | 
}] 241 | K=1*4d | I=0, J<0 | K=0 | 
| | | | | 
} 242 ] Y=xX*4I | x=0, I<0 |} Y=0 | 
| | | | | 
i 243 | DA=D**T | D=0, Is0 | DA=0 | 
| | | | | 
} 244 | XA=X**Y | X=0, Y<O | XA=0 | 
| | | | | 
| 245 | DA=D**DB | D=0, DB<O | DA=0 { 
| | | | | 
} 246 | CA=C**I | c=0+0i, I<0 | CA=0+0i | 
| | | | | 
} 247 =| CDA=CD*I | c=0+0i, I<0 | CA=0+0i | 
| | | | | 
} 251 | Y=SQRT (X) | X<0 |} Y=|xX|172 | 
| | | | | 
} 252 | Y=EXP (X) | X>174.673 | Y=* | 
| | | | | 
| 253 ] Y=ALOG (X) | X=0 | Y=-* | 
| | | X<0 | Y=log|X| | 
| | Y=ALOG10 (X) | xX=0 | Y=" | 
| x<0 | y=logiol|x| | 
| | | | | 
} 254 | Y=cos (xX) | |X] 224847 | Y=/272 | 
| | Y=SIN (X) | | | 
| | | | 
| 255 | Y=ATAN2 (X, XA) | X=0, XA=0 | Y=0 l 
| | | | | 
|} 256 | Y=SINH (X) { |X]2174.673 | Y=* | 
i | Y=COSH (X) | | | 
| | | | | 
{ 257 | Y=ARSIN (X) {| |X|>1 | Y=0 | 
| | Y=ARCOS (X) | | | 
| | | 
| 258 | Y=TAN (X) J |X|2(248)*T | Y=1 | 
| ] Y=COTAN (X) | | | 
| | | | | 
} 259 | Y=TAN (X) | X 1s too close | y=* | 
| ] {| to an odd | | 
| | | multiple of 7 | | 
| | | 2 | | 
Soveono— I cask eS a a Dare ee ee ei ee ee 
}] Variable Type 
[i,T Variables of INTEGER*4 
|X, XA, I Variables of REAL*4 
}D,DA,DB Variables of REAL*8 
|C,CA Variables of COMPLEX*8 
1Z,XaeXo Complex variables to be given the length of the functioned argument when they appear 
}CD Variables of COMPLEX*16 
boas Sa Se ee eo eo ee ee ee ee ee eee ee ee 
JNotes: 1. The user-supplied answer is obtained by recomputation of the function using the value| 
| set by the user routine for the parameters listed. 
| 2. 
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The largest number that can be represented in floating point is indicated above by #*.| 


eee 


(Eee EEE SEE ESE ESE ST ESE ESSE ESE SSE SEE ESET SETS SESE SESE SEES SEES ESTEE SSE ESET SSE SESE SEE TEE SESE SESE ESE SEE SS SS SE SS 


For errors 271 through 275, 
oH A A A A HH HK A HR A RK HK A HR RRR RR RR EE 
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Complex variables to be given the length of the functioned argument when they appear 


to a multiple 
of 1 


C=X4+t 1X2 


X,>174.673 Z=*(COS Xat+ SIN Xa) Cc 
|X2|2>21847 Z=0+0i Cc 
C=0+0i Z=—-*+0i Cc 


of INTEGER*4 
Of REAL*4 
of REAL*8 
of COMPLEX*8 


Table 18. Corrective Action After Mathematical Subroutines Error Occurrence (Part 2 of 3) 
earn ctad ae ne eee eee eee eee ee Sa a a a a al A 1 
| | | | Options | 
| | . }---------------------- Porn nnn { 
| ] | Invalid | Standard | User-Supplied | 
{Error | FORTRAN | Argument | Corrective | Corrective Action | 
|} Code | Reference | Range | Action | (See Note 1) | 
{-—----— , Saastanaaied iaeianreanesneaaoieeeatanaa $n ne > nia Stat esata aes cae fa ee eee | 
| | | | | | 
] | Y=COTAN (X) } X is too close | Y=* | xX | 
| | j} to a multiple | | | 
| | | of 1 | | | 
| | | | | | 
{| 261 | DA=DSQRT (D) | D<O {| DA=|D| 172 | D | 
| | | | | 
| 262 | DA=DEXP (D) | D>174.673 | DA=* | D | 
| | | | | | 
} 263 | DA=DLOG (D) | D=0 | DA=-* | D | 
| | | D<O | DA=log|X| | | 

| | 

| | DA=DLOG10 (D) | D=0 | DA=-* | D | 
| | | D<0 | DA=1logio [|X| | | 
| | | 

} 264 | DA=DSIN (D) {| JD] 225°* 7 | DA=J272 | D | 
| | DA=DCOS (D) | | | | 
] | | | | | 
| 265 | DA=DATAN2 (D, DB) | D=0,DB=0 | DA=0 | D, DB l 
| | | | | 
} 266 | DA=DSINH (D) | [DO |2174.673 | DA=* | D | 
| | DA=DCOSH (D) | | | | 
| | | | | | 
| 267 | DA=DARSIN (D) | {D|>1 | DA=0 | D | 
| | DA=DARCOS (D) { | | | 
{ | | | | | 
| 268 | DA=DTAN (D) | |X| 225°%R | DA=1 | D | 
| | DA=DCOTAN (D) | | | | 
| | | | | | 
1} 269 | DA=DTAN (D) } D is too close | DA=* | D | 
| | {| to an odd T | | | 
| | | multiple of 2 | | | 
| | | | | | 
| | DA=DCOTAN (D) | D is too close | DA=* | D | 
| | | | | | 
| | | | | 
| | 
| | 
| | 
| | 
| 
| | 
| 
| | 
| | 
L J 
‘ a 
| 

| 

| 

| 

| 

| 

| 


of COMPLEX*16 
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271 Z=CEXP (C) 
272 Z=CEXP (C) 
273 Z=CLOG (C) 
| Variable Type 
LL ,T Variables 
|X, XA,I Variables 
|D,DA, DB Variables 
|C,CA Variables 
[Z,X%a,X2 
{CD Variables 
|Notes: 1. 


The user-supplied answer is obtained by recomputation of the function using the value| 
set by the user routine for the parameters listed. | 
The largest number that can be represented in floating point is indicated above by *. | 

J 
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Table 18. ‘Corrective Action After Mathematical Subroutines Error Occurrence (Part 3 of 3) 


For er 
oo KK KK 


| 
281 
282 
283 


284 


285 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 
290 | 
| 

| 

291 | 
| 

| 

300 | 
| 
| 
| 
4. 


{Variable 


ene sane <eame ea eke Gm <tiiE cee 


NO 
~ 
BS mo 


a ee ee + 
| | | Options | 
| | }---------------------- qo------------=---+=+------- { 
| Invalid | Standard | User-Supplie | 

FORTRAN | Argument | Corrective | Corrective Action. | 
Reference | Range | Action | (See Note 1) | 
~------------------ ‘cocaeamaanel nea aa eimai: 
Z=CSIN (C) | |X,|2218+#7 | 2=0+0i | C 
Z=CCOS (C) | | | 
| | | 
Z=CSIN (C) | X2>174.673 | Z=*(SIN X4+icoS xX,) | Cc 
| | 2 | 
| | | | 
Z=CCOS (C) | | Z=*(COS X,-iSIN X,) | Cc 
| _ | 
Z=CSIN (C) | Xo<-174.673 | Z=*(SIN X4,-iCOS X4) | Cc 
| [| 2 | 
| | | | 
Z=CCOS (C) | | Z=*(COS X4+iSIN X4) | C 
| | | 


2 
3 Ko KK KK KK KK KK KK KK KK KK KE KK KK EK KE EK KE KKK EK KKK KAKA KK KKK KEK KEKE KEKE EK AEKE KES 


rors 281 through 285, CD=X,+ixs 
eee Cee TTS S TCSP CCST STSCI SST CT ECT CSS CTS PECTS TES SSCS LST CTC STC CCC CC SCOCL ESL ESOL CSS CLES S TEL eT S| 


Z=CDEXP (CD) 


D24. 2937*1073 


| | | 
| X4>174.673 | Z=*(COS XjtiSIN Xa) | CD 
| | | 
Z=CDEXP (CD) | |Xp]225°0*7 | z=0+0i [. CD 
| | | 
Z=CDLOG (CD) | cD=0+0i | 2=-*+0i | CD 
| | | 
Z=CDSIN (CD) | |X,]2250%7 | Z=0+0i | CD 
Z=CDCOS (CD) | | | 
| | | 
Z=CDSIN (CD) | X2>174.673 | Z=*(SIN X,+iCOS X,) | CD 
- 
Z=CDCOS (CD) | | Z=*(COS X4-iSIN X4) | CD 
- 
Z=CDSIN (CD) | X2<-174.673 | Z=*(SIN X,-icOS X,) | CD. 
| | 2 | 
| | | | 
Z=CDCOS (CD) | | Z=*(COS X4+iSIN X4) | CD 
| [| 2 | 
| | | 
Y=GAMMA (X) | X<2-252 or | Y=* | Xx 
| X257.5744 l | 
| | | 
Y=ALGAMA (X) | x<0 or | Y=* l X 
| x24.2937*1073 l 
| | | 
DA=DGAMMA (D) | D<2-252 or | DA=* l D 
{| D257.5774 | | 
| | | | | 
DA=DLGAMA (D) | D<O or | DA=* | D 
| | | 
he AL 1 
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+YPEe | 
Variables of INTEGER*4 | 
Variables of REAL*4 | 
Variables of REAL#8 | 
Variables of COMPLEX*8 | 
Complex variables to be given the length of the functioned argument when they appear | 
Variables of COMPLEX*16 | 
1. The user-supplied answer is obtained by recomputation of the function using the value| 
set by the user routine for the parameters listed. | 

2. The largest number that can be represented in floating point is indicated above by *.| 
J 
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Table 19. Corrective Action After Program Interrupt Occurrence 


RS aes nap ee ee ee eee Pear a ne eg ee ee ey ea 1 
| Program Interrupt Messages | Options | 
PSS ; a ERE (SaaS a ra Sareea SSe aS Ss 5 a cr : aE 
| |] Parameters | | | User-Supplied | 
|Error|Passed to | Reason for Interrupt | | Corrective | 
|Code |User Exit | (See Note 1) | Standard Corrective Action | Action | 
}-----4---------- +-------------------------- }~-------------------------- +--------------- { 
| 207 | D,I |Exponent overflow |Result register set to the |User may alter | 
] | | (Interrupt Code 12) [largest possible floating |D. See Note 2. | 
| | | Jpoint number. The sign of | | 
| | | Jthe result register is not | | 
| | | jaltered. | | 
| | | | | | 
{| 208 | Dz. {Exponent underflow [|The result register is set |User may alter | 
| ] | (Interrupt Code 13) [to zero. |D. See Note 2. | 
| | | | 
|} 209 | None {Divide check, Integer |There is no standard fixup.|See Note 4. | 
| | |divide (interrupt Code 9),|Result registers are not | | 
| | |Decimal divide (Interrupt ]|touched. | | 
| | |Code 11), Floating point | | | 
| | |divide (Interrupt Code | | | 
| | |15). See Note 3. | | | 
| | | | | 
} 210 | None |Specification interrupt |No special corrective |See Note 4. | 
| | (Interrupt Code 6) occurs |action other than correct- | | 
| | |for boundary misalignment. |ing boundary misalignments. | | 
| | |Other interrupts occur | | | 
| | |during boundary alignment | | | 
| | |adjustment. They will be | | | 
| | |shown with this error code] | | 
| | [and the PSW portion of the| | | 
| | [message will identify the | | | 
| | |interrupt. | | | 
,_———— By ne ree Sp ne sere ga PY We I aa ae ne ap a a inl ce Se et Sag en | 
]Variable Type Description | 
| D A variable INTEGER*8 This variable contains the contents of the result | 
| register after the interrupt. | 
] I A variable INTEGER*4 This variable contains the "exponent" as an integer | 
| value for the number in D. It may be used to deter- | 
mine the amount of the underflow or overflow. The | 
| value in I is not the true exponent, but what was | 
| left in the exponent field of a floating point number | 
| after the interrupt. | 
Pia ee She ee ee ee 
| Notes: 


|i. A program interrupt occurs asynchronously. Interrupts are described in IBM Systen/ 
360 Operating System: Principles of Operation, Form A22-6821. 


The user exit routine may supply an alternate answer for the setting of the result 
register. This is accomplished by placing a value for D in the user-exit routine. 
Although the interrupt may be caused by a long or short floating-point operation, 
the user-exit routine need not be concerned with this. The user-exit routine 
should always set a REAL*8 variable and the FORTRAN library will load short or long 
depending upon the floating-point operation that caused the interrupt. 


NO 
e 


W 
e 


For floating-point divide check, the contents of the result register is shown in 
the message. 


= 
ry 


The user-exit routine does not have the ability to change result registers after a 
divide check. The boundary alignment adjustments are informational messages and 
there is nothing to alter before execution continues. 


eit nn an a 
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//OPTAB JOB’ 1,'SAMPLE MACRO',MSGLEVEL=1 CREATE IHCUOPT 
//VER1 EXEC ASMFC,PARM.ASM=NODECK 
//ASM.SYSIN DD * 
MACRO 
PREFACE §&ADENT,&ADJST,&SETENT 
THIS MACRO GENERATES THE PREFACE TO THE OPTION TABLE AND SETS 
GLOBALS FOR SUBSEQUENT CALLS TO THE SETENT MACRO 
THE USE OF THIS MACRO GENERATES AN OPTION TABLE AS DEFINED BY IBM 
AND ALLOWS CHANGES TO INDIVIDUAL ERROR NUMBERS AS DESIRED, BY USE 
OF SETENT 
GBLA &COUNT,&TOTAL, &SETNR 
LCLA 6A 
IHCUOPT CSECT — 
6SETNR SETA 6&SETENT 


e*enee & 


&COUNT SETA 207 ERROR NUMBER OF FIRST ENTRY IN TABLE 
sTOTAL SETA 6ADENT+301 NUMBER OF LAST ENTRY IN TABLE 
&A . SETA 6ADENT+95 

pc F'éa' TOTAL NUMBER OF ENTRIES IN TABLE 


DC B'O&ADJST.000000' 
bc AL3 (0) 


SETENT 6E 
GBLA &COUNT, &TOTAL, &SETNR 
LCLA 6B 

&B SETA 1 

€SETNR SETA &SETNR~-1 

eAGAIN ANOP START OF LOOP TO GEN ONE ENTRY IN TABLE FOR ERROR NUMBER 
AIF (S€COUNT GT &TOTAL).MEND HAVE ALL ENTRIES BEEN CREATED 
AIF (6B LE N'&SYSLIST) .TEST 
AIF (&SETNR EQ 0) .DEFAULT 
MEXIT 

«TEST ANOP 

-* IF THERE IS NO USER SUPPLIED INFO FOR THIS ERROR NO TAKE DEFAULT 
AIF (&SYSLIST(&B,1) NE &COUNT) .DEFAULT 

ERRECOUNT DC AL1 (&SYSLIST(€B,2)) NUMBER OF ERRORS TO ALLOW FR SETENT 
DC AL1 (&SYSLIST(&B,3)) NO OF MSGS TO PRINT FROM SETENT 


pc x'00' 
bc X'&SYSLIST(&B,4)* OPTION BITS SUPPLIED BY SETENT 
DC F'i' 

&COUNT SETA &COUNT+1 

&B SETA 6&B+1 


AGO -AGAIN RETURN TO LOOP 
eDEFAULT ANOP IBM DEFAULTS FOR ERRORS NOT INDICATED BY SETENT 
.* IBM SPECIAL CASES FOR MESSAGE COUNT 

AIF (COUNT EQ 208).UNLIM 

AIF (ECOUNT EQ 210) .UNLIM 

AIF (COUNT EQ 215) .UNLIM 

AIF (§COUNT EQ 217) .ONE 

AIF (G6COUNT EQ 230) .ONE 
ERR&COUNT DC AL1(10) 

.BACK1 ANOP 

DC AL1 (5) 
~BACK2 ANOP 

DC x'oo! 

.* IBM SPECIAL CASES FOR OPTION BITS 

AIF (ECOUNT EQ 212).SPBITS 

AIF (COUNT EQ 215).SPBITS 

AIF (ECOUNT EQ 218).SPBITS 

AIF (ECOUNT EQ 221).SPBITS 

AIF (ECOUNT EQ 222).SPBITS 

AIF (€COUNT EQ 223) .SPBITS 

AIF (6COUNT EQ 224) .SPBITS 

AIF (€COUNT EQ 225).SPBITS 

DC x'42! 

AGO ~CONT 
-SPBITS DC x'52! 
~CONT ANOP 

DC F'q' 

SCOUNT SETA €&COUNT+1 

AGO ~AGAIN RETURN TO LOOP 
~UNLIM ANOP 
ERR&COUNT DC AL1(0) 

AIF (§COUNT NE 210).BACK1 

DC AL1(10) 

AGO . BACK2 
.~ ONE ANOP 
ERR&COUNT DC AL1(1) 

DC AL1 (1) 

AIF (&COUNT EQ 217) .BACK2 

DC x'00! 

DC x'02! 

AGO ~CONT 
»MEND ANOP 
MEND 
END OF MACRO DEFINITION 


EXAMPLE OF THE USE OF THE MACRO 


+e ee 


PREFACE 50,1,2 
SETENT (220,5,2,21) ,(235,10,5,42) , (255,2,0,4) 
SETENT (300,56,65,3) 
END 
/* 
END OF DATA 


Figure 62. Example of Assembler Language Macro Definition Used to Generate Option Table 
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The macro parameters are as follows: 


PREFACE A,B,C 


where 
A ; 
is the number of user entries to be 
created 
B 
is the boundary alignment desired, 
with these values 
0 = no alignment 
1 = alignment 
Cc 
is the number of times the SETENT 
macro is to be issued. 
SETENT (A,B,C,D) 
where 
A 
is the error entry to be altered 
B 
is the count of errors to allow. (A 
specification of 0 means unlimited 
error occurrence. ) 
Cc 
is the count of the number of times 
the message should be printed before 
suppression. 
D 


is two hexadecimal digits that fill 
the option code field. 


The macro instructions are used as 
follows: 


1. Only one PREFACE macro instruction is 
allowed. 


2. As many SETENT macro instructions as 
are desired may be used. From one to 
200 error entries can be specified in 
the use of a single SETENT macro 
instruction by using continuation 
cards. 


3. Only error entries that differ from 
the default options need be mentioned. 
The default options will be the same 
as those. listed in Table 16. 


4. Error codes must be placed in ascend- 
ing order in the SETENT macro instruc- 
tion. For IBM-supplied entries, error 
codes are in the range from 207 to 
301. User entries are in the range 
from 302 to 899. 


5. If there is an error in the specifica- 
tion of parameters, the entry will be 
ignored and a diagnostic message will 
be printed. 


Option Table Default Values 


The Option Table controls the extended 
error message facility. 


Table 16 shows the default values for 
the Option Table. If an option recorded in 
a table entry does not apply to a particu- 
lar error condition, it is shown as. not 
applicable (NA). 


The field that is defined as the user- 
exit address also serves as a means Of spe- 
cifying standard corrective action. When 
the table entry contains an address, the 
user exit is specified; when it is 1, stan- 
dard correction is specified. It is not 
possible to generate or create an Option 
Table entry with the user-exit address 
specified. The user exit must be specified 
by altering the Option Table. To specify 
that no corrective action -- either stan- 
dard or user-written -- is to be taken, the 
table entry must specify that only one 
error is to be allowed before termination 
of execution. 


ERRORS IN USE OF FACILITY 


When the extended error message facility 
recognizes a situation or request that 
requires user notification, an information- 
al message is printed. 


The error monitor is not recursive; if 
it has already been called for an error, it 
cannot be re-entered in the event that the 
user-written corrective routine causes any 
of the error conditions that are listed in 
the Option Table. Boundary misalignment is 
therefore not allowed in a user-exit 
routine. 


PROGRAMMING EXAMPLE 


The programming example in Figure 63 
shows how features of the error message 
facility are used. 


A FORTRAN job utilizes a user-supplied 
library subprogram which makes use of the 
error message facility to handle a divide 
by zero Situation. A user-written routine 
is supplied to take corrective action after 
the detection of an error. Comments in the 
FORTRAN program describe what is being 
done. 
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//SAMPLE JOB 1,SAMPLE, MSGLEVEL=1 

//STEP1 EXEC . FORTHCLG 

//FORT.SYSIN DD * 

Cc | mS (sae THAT USES THE SUBROUTINE DIVIDE 





" EXTERNAL FIXDIV 


Cc SET UP OPTION TABLE WITH ADDRESS OF USER EXIT 
CALL ERRSET(302,30,5,1,FIXDIV) 
E=0 

C GET VALUES TO CALL DIVIDE WITH 


READ(5,10) A,B 
IF(B) 1,2,1 


2 E=1,0 

1 CALL DIVIDE(A,B,C) 
WRITE(6,10)C 

10 . FORMAT ('1'2E20.8) 
STOP » 
E 


eect esnips Es yeban ncnAL AMeR TA AAPA WITG RAI GH FENRCARE RARE EUR EP TEMES ee Smet he a ete? oy Snes 
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SUBROUTINE “DIVIDE (A,B,C). 
ROUTINE TO PERFORM THE CALCULATION C=A/B 
_ IF B=0 THEN USE ERROR MESSAGE FACILITY TO SERVICE ERROR 
PROVIDE MESSAGE TO BE PRINTED 
DIMENSION MES (4) 
DATA MES (1)/12/,MES(2)' DIV'/,MES (3) /'3021/,MES (4)/" B=0'/ 
DATA RMAX/Z7FFFFFFF/ 
MESSAGE TO BE PRINTED IS 
DIV302I B=0 
ERROR CODE 302 IS AVAILABLE AND ASSIGNED TO THIS ROUTINE 
STEP 1 SAVE A,B IN LOCAL STORAGE 
D=A 
E=B : 7 
STEP2 TEST FOR ERROR CONDITION 
00 IE(E) 1,2,1 
NORMAL CASE -- COMPUTE FUNCTION 
C=D/E 
RETURN | 
STEP3 ERROR DETECTED CALL ERROR MONITOR 
CALL ERRMON (MES, IRETCD, 302,D,E) 
STEP 4 BE READY TO ACCEPT A RETURN FROM THE ERROR MONITOR 
IF (IRETCD) 5,6,5 
IF IRETCD=) STANDARD RESULT IS DESIRED 
STANDARD RESULT WILL BE C=LARGEST NUMBER IF D IS NOT ZERO 
CR C=0 IF E=0 AND D=0 
IF(D) 7,8,7 
C=0..0 
GO TO 9 
C=RMAX 
RETURN 
USER FIX UP INDICATED, RECOMPUTE WITH NEW VALUE PLACED IN E 
GO TO 100 
_END __ 
SUBROUTINE, FIXDIV(IRETCD,INO,A,B) 
THIS IS A USER EXIT TO SERVE THE SUBROUTINE DIVIDE 
THE PARAMETERS IN THE CALL MATCH THOSE USE IN THE CALL TO 
ERRMON MADE BY SUBROUTINE DIVIDE 
STEP1 IS ALTERNATE VALUE FOR B AVAILABLE -- MAIN PROGRAM 
HAS SUPPLIED A NEW VALUE IN E. IF E=0 NO NEW VALUE IS AVAILABLE 
COMMON E | 
IF(E) 1,2,1 
NEW VALUE AVAILABLE TAKE USER CORRECTION EXIT 
B=E 
RETURN 
NEW VALUE NOT AVAILABLE USE STANDARD FIX UP 
IRETCD=0 
RETURN 
END 


QAANAN VIAWONI DOBDNAANQ ANN —-Q- MQQAAQAN 
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NO 


/* 
//GO.SYSIN DD * 

0.1E00 
/* 


Figure 63. Sample Program Using Extended Error Message Facility 
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FORTRAN can be invoked by a problem pro- 
gram through the use of the CALL, ATTACH, 
or LINK macro instructions. 


The program must supply to the FORTRAN 
compiler: 


e The information usually specified in 
the PARM parameter of the EXEC 
statement. 


e The ddnames of the data sets to be used 
during processing by the FORTRAN 
compiler. 


ar eta i a, RE aa a a 1 
jName |Operation|Operand | 


+ + 

| [name] | {LINK | EP=IEKAAOO, | 

| ee | PARAM= (optionaddr | 

| | |} (€,ddnameaddr]),VL=1 | 

| | | | 

| [name] | CALL | IEKAAOO, (optionaddr | 
|} {,ddnameaddr]),VL | 
1 


optionaddr 
specifies the address of a variable 
length list containing information 
usually specified in the PARM parame- 
ter of the EXEC statement. 


The option list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 

If there are no parameters, the count 
must be zero. The option list is free 
form with each field separated by a 
comma. No blanks should appear in the 
list. 


APPENDIX A: INVOKING THE FORTRAN COMPILER 


ddnameaddr 


specifies the address of a variable 
length list containing alternate 
ddnames for the data sets used during 
FORTRAN compiler processing. This 
address is supplied by the invoking 
progran. If standard ddnames are 
used, this operand may be omitted. 


The ddname list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
Each name of less than eight bytes 
must be left justified and padded with 
blanks. If an alternate ddname is 
omitted from the list, the standard 
name is assumed. If the name is 
omitted within the list, the 8-byte 
entry must contain binary zeros. 


The sequence of the 8-byte entries in 
the ddname list is as follows: 


Alternate Name 
SYSLIN 
00000000 
00000000 
00000000 

SYSIN 

SYSPRINT 
SYSPUNCH 
SYSUT1 

SYSUT2 


bi 
2 
cw sou suwnl 


OR VL 

specifies that the sign bit of the 
last full-word of the address parame- 
ter list is to be set to 1. 
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APPENDIX B: EXAMPLES OF JOB PROCESSING 


The following examples show several 
methods to process load modules. 


Example 1 


Problem Statement: A previously created 
data set SCIENCE.MATH.MATRICES contains a 
set of 80 matrices. Each matrix is an 
array containing real*4 variables. The 
Size of the matrices varies from 2x2 to 
25x25; the average size is 10x10. The 
matrices are inverted by a load module 
MATINV in the library MATPROGS. Each 
inverted matrix is written (assume FORMAT 
control) as a single record on the data set 
SCIENCE. MATH. INVMATRS. 


The I/O flow for the example is shown in 
Figure 64. The job control statements used 
to define this job are shown is Figure 65. 











SCIENCE. 
MATH. 
INVMATRS 






MATINV 













Printed 
Output 






Figure 64. Input/Output Flow for Example 


Explanation: The JOB statement identifies 
the programmer as JOHN SMITH and supplies 
the account number 537. Both control 
Statements and control statement error mes- 
sages are written in the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library MATPROGS is concate- 
nated with the system library. 


The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8F001 identifies the 
input data set, SCIENCE.MATH.MATRICES. 
(Data set reference number 8 is used to 
read the input data set.) Because this 
data set has been previously created and 
cataloged, no information other than the 
data set name and disposition has to be 
supplied. 


DD statement FT10F001 identifies the 
printed output. (Data set reference number 
10 is used for printed output.) 


DD statement FTO4F001 defines the output 
data set. (Data set reference number 4 is 
used to write the data set containing the 
inverted matrices.) Because the data set 
is created and cataloged in this job step, 
a complete data set specification is 
supplied. 


The DSNAME parameter indicates that the 
data set is named SCIENCE.MATH.INVMATRS. 
The DISP parameter indicates that the data 


nae Coding Form 


ee ae ee ae ee eee ee ee 
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//INVERT JOB 53/79 JOHNSMITH MSGLEVEL= 1 


So oO ae ce ee on 


//JOBLIB DD DSNAME= JATPROGS 9 DISP= OLD | 


LATNVERT, EXEC PGM=MATINV 


//FTO8FOO1, DD DSNAME=SCIENC E- MATH. MATRICES »DISP= OLD 
//FTA@FOO1, DD SYSOUT=A 


//FIOHFOO1, DD DSNAME=SCIENCE-MATH-INVMATRS 9, 

il BO ICS a ea E=SER=1989W 

Uf . SPACE= (498 (89.7,) ) RLSE 9 CO 1 CONTIG 2 ROUND.) 9SEP= FT@8FOO14, 
If 7 DCB=(RECFM=VB,LRECL= 2504, BLKSIZE=2598 


Figure 65. 
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Job Control Statements for Example 1 


set is new and is to be cataloged. The 
SPACE parameter indicates that space is 
reserved for 80 records, 408 characters 
long (80 matrices of average size). When 
Space is exhausted, space for 9 more rec- 
ords is allocated. The space is contig- 
uous; any unused space is released, and 
allocation begins and ends on cylinder 
boundaries. 


The DCB parameter indicates variable- 
length records, because the size of 
Matrices vary. The record length is speci- 
fied as 2504, the maximum size of a 
variable-length record. (The maximum size 
of a record in this data set is the maximum 
number of elements (625) in any matrix mul- 
tiplied by the number of bytes (4) allo- 
cated for an element, plus 4 for the seg- 
ment control word (SCW) that indicates the 
count of the number of data bytes contained 
in the record.) The buffer length is spec- 
ified as 2508 (the 4 bytes are for the 
block control word (BCW) that contains the 
length of the block). 


The SEP parameter indicates that read 
and write operations should take place on 
different channels. 


Example 2 


Problem Statement: A previously created 
data set RAWDATA contains raw data froma 
test firing. A load module PROGRD refines 
data by comparing the data set RAWDATA 
against a forecasted result, PROJDATA. The 
output of PROGRD is a data set &REFDATA, 
which contains the refined data. 


The refined data is used to develop 
values from which graphs and reports can be 
generated. The load module ANALYZ contains 
a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set &VALUES, 
which contains intermediate values. 


These values are used as input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 1 in the "Introduction" 
shows the I/O flow for the example. Figure 
66 shows the job control statements used to 
process this job. 


The load modules PROGRD, ANALYZ, and 
REPORT are contained in the private library 
FIRING. 


Explanation: The JOB statement indicates 
the programmer"’s name, JOHN SMITH, and that 
control statements and control statements 
errors are written in the SYSOUT data set. 


Appendix B: 


The JOBLIB DD statement indicates that 
the private library FIRING is concatenated 
with the system library. 


The EXEC statement STEP1 defines the 
first job step in the job and indicates 
that the load module PROGRD is executed. 


The DD statements FT10F001 and FT11F001 
identify the data sets containing raw data 
(RAWDATA) and the forecasted result 
(PROJDATA), respectively. 


DD statement FT12F001 defines a tem- 
porary data set, EREFDATA, created for 
input to the second step. (In the load 
module, data set reference number 12 is 
used to write &REFDATA.) The DISP parame- 
ter indicates that a data set is new and is 
passed. The data set is written using the 
device class TAPECLS. The VOLUME. parameter 
indicates that the volume identified by 
serial number. 2107 is used for this data 
set. The DCB parameter indicates that the 
volume is written using high density; the 
records are fixed-length with FORMAT con- 
trol and the buffer length is 400. 


The EXEC statement STEP2 defines the 
second job step in the job and indicates 
that the load module ANALYZ is executed. 


DD statement FT17F001 identifies the 
data set which contains refined data. The 
DISP parameter indicates that the data set 
is deleted after execution of this job 
step. The DD statement FT18F001 identifies 
the previously created and cataloged data 
set PARAMS. 


DD statement FT20F001 defines the tem- 
porary data set &VALUES containing the 
intermediate values. The DISP parameter 
indicates that the data set is created in 
this step, and that it is passed to the 
next job step. The data set is written on 
volume 2108 using one of the devices 
assignéd to the class TAPECLS. The DCB 
parameter indicates high density and fixed- 
length blocked records (written under 
FORMAT control). Each record is 204 
charac- ters long. 


The EXEC statement STEP3 defines the 
third job step and indicates that the ioad 
module REPORT is executed. DD statement 
FTO8F001 identifies the data set containing 
intermediate values. 


DD statement FTO6FO01 indicates that the 
data set reference number 06 is used to 
print the reports and graphs for job step 


three. 
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| Sample Coding Form 


7 1-30 


 asalatorarsro 11-20 2 | 31-40 | 4t-50——s”T 51—60 61-70 71-80 
(213/415|6|7[8[9/of | [2[3]415]/6[7|8]9/o] | [2]3/4{5/6]7|8i9[ol! [2[3/4/5]6]7[slglol [2[3[415[617[s{slol i [2[314]5]6[7[s{9 lo}! [2[3/4{[5l6[7[s8{9jol! [2/3{415/6|7{8]9/0} 


//TESTFIRE, JOB »JOHNSMITH®MSGLEVEL=4. |, | 
//JOBLIB DD. DSNAME=FIRING2DISP=(OLD»PASS), |... 


//STEP4, EXEC PGM=PROGRD_ 


oa gt ec Wc ee en : 


//FTA@FOOL, DD DSNAME=RAWDATA2DISP=OLD i. 


(AV FTALFOOt DD DSNAME=PROJ DATA sDISP=0OLD 


//FTL.2FO@1, OD DSNAME=&REFDATA2DISP=(NEW>PASS) sUNIT=TAPECLS9 1 
// VOLUME=( 9RETAINSSER=217),9 
// DCB=(DEN=2sRECFM=F > BLKSIZE=40)) 


/ISTEP2 EXEC PGM=ANALYZ 


//FTATFOO1, DD DSNAME=%.STEP1.FT12F001 »DISP=OLD 


(// FT18F091, DD DSNAME=PARA $9 DISP=OLD ag 


/AIFT2OFOO1, OD DSNAME=SVALUES 2 DISP=(NEWsPASS) 9UNIT=TAPECLS» 1 


AL DCB= (,DEN=2RECFM=F,2BLKSIZE=204) » VOLUME-SER= 2198 


//STEP3 EXEC PGM= REPORT | 


|// FT@BFO@1, DD DSNAME=%,-STEP2.FT20F A019 DISP=OLD | a atnee 
//FTOOFOO1 DD UNTT=PRINTER ty heeded 


Figure 66. Job Control Statements for Example 2 


Example 3 


A data set has been created that con- 
tains master records for an index of stars. 
Fach star is identified by a unique six- 
digit star identification number. Each 
Star is assigned a record position in the 
data set by truncating the last two digits 
in the star identification number. Because 
synonyms arise, records are chained. 


Problem Statement: Figure 67 shows a block 
diagram illustrating the logic for this 
problem. 


A card data set read from the input 
stream is used to update the star master 
data set. Each record (detail record) in 
this data set contains: 


1. The star identification field of the 
star master record that the detail 
record is used to update. 


2. Six variables that are to be used to 
update the star master. 
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The following conventions must be 
observed processing this data set: 


The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


A zero in the chain variable indicates 
that the end of a chain has been 
reached. 


The first variable in each star master 
record is the star identification 
field: the second variable in each 
star master is the chain variable. 


Each record contains six other 
variables that contain information 
about that star. 


Write Star 
Master 


Record 
1 















Figure 67. 
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Block Diagram for Example 3 
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When a Star detail record is read, its 
identification field is randomized, and the 
appropriate star master record is read. If 
the correct star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 
record is to be created for that star. 


The last record in the star detail data 
set contains a star identification number 
999999 which indicates that processing the 
Star detail data set is completed. 


Explanation: Figure 67 is Similar to the 
diagram shown in Figure 48 except Figure 67 
includes blocks that describe updating 
variables in master records already present 
in the data set. (Figure 48 includes 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 67 is 
adapted to Example 3, while Figure 48 is 
more general. Figure 69 shows the FORTRAN 
coding for this program. 


The star master record that contains the 
record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read, the identification 
variable is checked to determine if the ena 
of the detail data set has been reached. 
The star detail records contain the 
variables A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized and the result is 
placed in the variable NOREC, which is used 
to read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (ICHAIN), 
and six variables (T, U, V, X, Y, and 2) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
are compared to see if the correct star 
master is found. If it is not found, then 
the variables containing the chain record 
numbers are followed until the correct star 
master is found or a new star master is 
created. 


Job Control Statements: The program shown 
in Figure 69 is compiled and link edited, 
placing the load module in the PDS STARPGMS 
and assigning the load module the name 
UPDATE. The data set that contains the 
Star master records was cataloged and 
assigned the name STARMSTR when it was 
created. Figure 68 shows the job control 
Statements needed to execute the module 
UPDATE. 
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Sample Coding Form 


LEER TRISTE ePrersolersisiel -EIS(OHTESasTelTSSION ES set ASTON eISISI6| 7ST ESL Sie ELSON ISAT sI6|7EISTD 
//STARDAUP, JOB 3239\J-ASTRONOMER’ »MSGLEVEL=1 


//, EXEC, PGM=UPDATE | | 
//FTO7FGO1, DD DSNAME=STARMSTR»DISP=OLD 

| Star Detail Data Set _ | 
\/* END, OF STAR DETAILS 


Figure 68. Job Control Statements for Example 3 


' IDENTIFICATION 
ORIRAN STATEMENT | Stee 
Reet iy SS SP Se Aaa se Sr 58 él 60 465 $6 87 x : 


aa aoe BF OT eS SB 7? GLC ELE es CS 
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TLL DEFINE! F1 
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*A stondord card form, IBM electro 888157, is available far punching statements from th’! 4° 


Figure 69. FORTRAN Coding for Example 3 
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APPENDIX C: ASSEMBLER LANGUAGE SUBPROGRAMS 


A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN main 
program. This section describes the link- 
age conventions that must be used py the 
assembler language subprogram to communi- 
cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the Assembler Language 


publication and the Assembler Programmer's 
Guide. 


SUBROUTINE REFERENCES 


The FORTRAN programmer can refer to a 
Subprogram in two ways: by a CALL state- 
ment or a function reference within an 
arithmetic expression. For example, the 
Statements 


CALL MYSUE(X, Y, Z) 
T=J+K+MYFUNC (L,M, N) 


refer to a subroutine subprogram MYSUB and 
a function subprogram MYFUNC, respectively. 


For subprogram reference, the compiler 
generates: 


1. A contiguous argument list; the 
addresses of the arguments are placed 
in this list to make the arguments 
accessible to the subprogram. 


2. A save area in which the subprogram 
can save information related to the 
calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Arqument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
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used as arguments. Each entry in the argu- 
ment list is four bytes and is aligned on a 
full-word boundary. The last three bytes 
of each entry contain the 24-bit address of 
an argument. The first byte of each entry 
contains zeros, unless it is the last entry 
in the argument list. If this is the last 
entry, the sign bit in the entry is set on. 


The address of the argument list is 
placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
save areas used by programs other than the 
subprogram. The amount of storage reserved 
by the calling program is 18 words. Figure 
70 shows the layout of the save area and 
the contents of each word. The address of 
the save area is placed in general register 
13. 


The called subprogram does not have to 
Save and restore floating-point registers. 


Calling Sequence 


A calling sequence is generated to 
transfer control to the subprogram. The 
address of the save area in the calling 
program is placed in general register 13. 
The address of the argument list is placed 
in general register 1, and the entry 
address is placed in general register 15. 

A branch is made to the address in register 
15 and the return address is saved in gen- 

eral register 14. Table 20 illustrates the 
use of the linkage registers. 





r 
| AREA-------—----- > poo -  - $+ + + +--+ 1 
| (word 1) iThis word is used by a FORTRAN compiled routine to store its | | 
| |epilogue address and may not be used by the assembler language | | 
| |subprogram for any purpose. | | 
| AREA+4---~---~-~~-~ Da Se a ee eae eee eet a ee ee eee tee eee | l 
| (word 2) |If the program that calls the assembler language Subprogram is | | 
| [itself a subprogram, this word contains the address of the save | | 
| Jarea Of the calling program; otherwise, this word is not used. | | 
| AREA+8—---—---—~-- > --------------------+-------- - +--+ ++ +--+ + +--+ | l 
| (word 3) |The address of the save area of the called subprogram. | | 
| ARFA+12--—----~~-~--~ > }----------- +--+ +--+ + + + l 
| (word 4) |The contents of register 14 (the return address). When the sub-| | 
| {program returns oe the first byte of this location is set | | 
| to ones. we, \ ee imme oe a | 
| BREA 1 Gece Ssees = S SR Re arian te eve ere ed al el A ee | 
| (word 5) |The contents of register 15 (the entry address). | | 
| AREA+20—--——~—---— > }--------------------------------- --- - -- -—- - -- - -- - 4 | 
| (word 6) |The contents of register 0. | | 
| AREA+24—--~~--~-~-~ > fe saese oe a ee es ee ee eee ee eee Saas | | 
| (word 7) |The contents of register 1. | | 
| | --------------~-----~-------------------------------------------- {| 
| . | . | | 
| ° | . | | 
| . | . | | 
| AREA+68————--——-- > --------------- --- -- - -- - -- - - - - - + +--+ - - + 4 | 
{| (word 18) {|The contents of register 12. | | 
| EEE Rc OPEN SAUD EN He IE RTT VON GEO TET EE NEE at fe PL Se Pa ee ee Rea eee 4 | 
a i a a a a a ee 4 
Figure 70. Save Area Layout and Word Contents 
Table 20. Linkage Registers 
ey ep a Ng ae ra re ae gg re Seg Pag ree ete Op ae tee ee gem ae ae ep an 
hisqneter | | | 
|Number |Register Name |Function | 
}-------- }-----~-~---------}-------------------------~------+------------------------------ { 
| 0 [Result Register|Used for function subprograms nia. The result is returned in| 
| | |general or floating-point register 0. However, if the result | 
| | [is a complex number, it is returned in floating-point regis- | 
| | Jters 0 (real part) and 2 (imaginary part). (Note: For sun- | 
| | | routine Subprograms, the result(s) is returned in a var-| 
| | lable(s) passed by the programmer. ) | 
}-------- }~--------~-----}--------------~--+--------+------------------------------+----- { 
| 1 [Argument — List |Address of the argument list passed to the called | 
| | Register |subprogram. | 
|----~---}------~---------}-------------------------------------------------------------- | 
| 2 |Result Register|See Function of Register 0 | 
}------~- }---------=-----4 ~~~ -- == - $= $$ 5 = $n nn { 
| 13 |\Save Area }Address of the. area reserved by the calling program 
| |Register Jin which tne contents of certain registers are stored by the | 
| | |called program. | 
|--------}---------------}-------------------------------------------------------------- { 
| 14 Return Register|Address of the location in the calling program to which con- | 
| {trol is returned after execution of the called program. | 
|--------4~--------------}-~-------------------------------------------------=----------- { 
15 Entry Point {Address of the entry point in the called subprogram. | 


[AP em wee ceeee eames mee cone ommett comms sommes 


|Note: Register 15 is also used as a condition code register, | 
{a RETURN code register, and a STOP code register. The partic-| 
|ular values that can be contained in the register are | 
| 16 - terminal error detected during execution of a subprogram| 
(an IHCxxxI message is generated) 
4*#i1 —- a RETURN i statement is executed 
n - a STOP n statement is executed 
O - a RETURN or a STOP statement is executed 
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CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 


Two types of assembler language subpro- 
grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does call another 
Subprogram. 


Coding a Lowest Levei Assembler Language 
Subprogram 


For the lowest level assembler language 
Subprogram, the linkage instructions must 
include: 


1. An assembler instruction that names an 
entry point for the subprogram. 


2. An instruction(s) to save any general 
registers used by the subprogram in 
the save area reserved by the calling 
program. (The contents of linkage 
registers 0 and 1 need not be saved.) 


3. An instruction(s) to restore the 
"saved" registers before returning 
control to the calling program. 


4. An instruction that sets the first 
byte in the fourth word of the save 
area to ones, indicating that control 
is returned to the calling program. 


5. An instruction that returns control to. 


the calling program. 


Figure 71 shows the linkage conventions 
for an assembler language subprogram that 
Goes not call another subprogram. In addi- 
tion to these conventions, the assempoler 


program must provide a method to transfer 
arguments from the calling program and 
return the arguments to the calling 
program. 


Higher Level Assembly Language Subprogram 


A higher level assembler subprogram must 
include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 
Subprogram, it must simulate a FORTRAN sub- 
program reference statement and include: 


1. A Save area and additional instruc— 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


3. An assembler instruction that indi- 
cates an external reference to the 
Subprogram called by the higher level 
Subprogram. 


4. Additional instructions in the return 
routine to retrieve entries in the 
Save area. 


Note: If an assembler language main pro- 
gram calls a FORTRAN subprogram, the fol- 
lowing instructions must be included in the 
assembler language program before the 
FORTRAN Subprogram is called: 


L 15,=V(IBCOM#) 
BAL 14,64(15) 


(Se et ee FG A a ama a a 1 
| Name |Oper. |Operand Comments | 
}---~—-----4------ fran nnn nn nn a nnn { 
|deckname |START |0 | 
| | BC {15,m+1+4(15) BRANCH AROUND CONSTANTS IN CALLING SEQUENCE | 
| {DC Xan" m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM | 
| | DC |CLm'name* STARTS ON A HALF-WORD BOUNDARY. THE NAME CAN BE PADDED | 
| * | | WITH BLANKS. | 
| {STM 114,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE | 
| * | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY| 
| * | | NUMBER FROM 2 THROUGH 12. | 
| |BALR |B,0 ESTABLISH BASF REGISTER (2<B<12) | 
| JUSING |*,B | 
| juser |written source statements | 
| | = | 
| | i ss | 
| | | - | | 
| | LM J2,R,28(13) RESTORE REGISTERS | 
| | MVI }12(13),X‘'FF* INDICATE CONTROL RETURNED TO CALLING PROGRAM | 
| | BCR {15,14 RETURN TO CALLING PROGRAM | 
Colegesey Senge nee tate i iptsed eno a a a a a at ee ee ee 


Figure 71. 
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Linkage Conventions for Lowest Level Subprogram 


id 


These instructions cause initialization of 
return coding and interruption exceptions. 
If this is not done and the FORTRAN subpro- 
gram terminates either with a STOP state- 
ment or because of an execution-time error, 
the data sets opened by FORTRAN are not 
closed and the result of the termination 
cannot be predicted. Register 13 must con- 
tain the address of the save area that con- 
tains the registers to be restored upon 
termination of the FORTRAN subprogram. If 





control is to return to the assembler lan- 
guage subprogram, then register 13 contains 
the address of its save area. If control 
is to return to the operating system, then 
register 13 contains the address of its 
Save area. 


Figure 72 shows the ~inkage conventions 
for an assembler subprogram that calls 
another assembler subprogram. 


Sirens aimee Sentara a ma am aaa a a a a aa ae a 1 
| Name }Oper. |Operand Comments 
pn nn rn er rn ee ne ne een | 
|}deckname |START |0 | 
| | EXTRN |names NAME OF THE SUBPROGRAM CALLED BY THIS SUBPRCGRAM | 
| | BC 115,m+1+4(15) | | 
| {DC |X*m | 
| |DC | CLm* name, | 
| * |SAVE ROUTINE | 
| | STM }14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND O THROUGH R ARE | 
| * | | STORED IN THER. SAVE AREA OF THE CALLING PROGRAM. R IS | 
| * | | ANY NUMBER FROM 2 THROUGH 12. | 
| | BALR |B,9 ESTABLISH BASE REGISTER | | 
| [USING |*,B l 
| | LR }Q,13 LOADS REGISTER 13, WHICH FOINTS TO THE SAVE AREA OF THE | 
| * | | CALLING PROGRAM, INTO ANY GENERAL REGISTER, ©, EXCEPT 0, | 
| * | | 11, 13, AND 15. | 
| |LA )13, AREA LOADS THE ADDRESS OF THIS PROGRAM'S SAVE ARLA Ik O | 
| + | | REGISTER 13. | 
| | ST }13,8(0,9) STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE | 
| * | | CALLING PROGRAM'S SAVE AREA | 
| | ST }QO,4(0,13) STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE 
| * | | AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- | 
|* | | GRAM'S SAVE AREA | 
| | Bc }15, prob, Bea gt tae: ie PO | 
| AREA |DS |18F RESERVES 18 WORDS FOR THE SAVE AREA | 
| * | |END OF SAVE ROUTINE | 
| | | 
|prob, Juser |written program statements | 
| | | | 
| * | |CALLING SEQUENCE | 
| |LA___ JL ARGLIST,__LOAD_ADDRESS_OF ARGUMENT LIST | 
| |L }15,ADCON . | | | 
| |BALR {14,15 | 
| jmore juser written program statements | 
| * | |RETURN ROUTINE | 
| | L j,13, AREA+4 LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO | 
| + | | REGISTER 13 | 
| | LM |2,R,28(13) | 
| |L 114,12(13) LOADS THE RETURN ADDRESS INTO REGISTER 14. | 
| |MVI {12(13),X'FF' | 
| [BCR {15,14 RETURN TO CALLING PROGRAM | 
|* | {END OF RETURN ROUTINE | 
| ADCON | DC | A(name2) | 
| * | | ARGUMENT LIST | 
| ARC | DC | AL4 (arg, ) ADDRESS OF FIRST ARGUMENT | 
| | - | | 
| Pt | 
| C Cees eat toa some NDICATE LAST. ARGUMENT IN ARGUMENT LIST | 
| e | Dc | AL3 (argn) ADDRESS OF “LAST ARGUMENT ~ Seeger nee reese nae | 
ee eee AE ek os See a ar a a Ne ee eae a os a Ns kine ht ek EG eae hse Mpa ee 4 


Figure 72. 
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Linkage Conventions for digher Level Subprogram 


a 
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In-Line Argument List 


The assembler programmer may establish 
an in-line argument list instead of out-of- 
line list. In this case, he may substitute 
the calling sequence and argument list 
shown in Figure 73 for that shown in Figure 
12. 


Re Un OND eR EI ACO SERENE eee CURE SOT ERAN RISD nD CDS ERR OOD WIND SAVIN SD OTREEY GERD RENE LAN ORR CRI COED RANA CEES GUUS Guy SEES GE GUEND Chum GED <i GES GED GEE que aon 





a | 


“ALM (args) 

DC ALY (arga) 
i DC AL3 (argn) | 
RETURN BC 0,X*isn'* | 
J 


Figure 73. In-Line Argument List 


Sharing Data in COMMON 


Both named and blank COMMON in a FORTRAN 
IV program can be referred to by an assem- 
bly language subprogram. To refer. to named 
COMMON, the V-type address constant 


name DC V(name of COMMON) 
is used. 


If a FORTRAN program has a blank COMMON 
area and blank COMMON is also defined (by 
the COM instruction) in an assembly lan- 
guage subprogram, Only one blank COMMON 
area is generated for the output load 
module. Data in this blank COMMON is 
accessible to both programs. 


RETRIEVING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in, 
register 1. For example, when the 
statement 


1i2 


CALL MYSUB(A,B,C) 


is compiled, the following argument list is 
generated. 


Boe ee Mic we ee ape ao ae eee gg gee et Oe Gane Tg eet 7 
100000000] address for A | 

pis Hig a ce +——~—~—-—~-—-—~—~—~—~—-~—--—-+~—-——~—~—-—---~----{ 
| OO0000000| address for B | 

=------- fo-----==-----==-----------------4 
| $o000000| address for C | 
| pce Ere ane erent Bo RS RR eA OE PR AR ey SESS EO RS SESE CON SE J 


For purposes of discussion, A is a real*8 
variable, B is a subprogram name, and C is 
an array. 


The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
real*8 variable A to location VAR in the 
subprogram. 


L O,0(1) 
MVC VAR (8) ,0(Q) 


where 
Q is any general register except 0. 


For a subprogram reference, an address 
of a storage location is placed in the 
argument list. The address at this storage 
location is the entry point to the subpro- 
gram. The following instructions can be 
used to enter subprogram B from the subpro- 
gram to which B is passed as an argument. 


L O,4(1) 

L 15,0(Q) 

BALR 14,15 
where 


Q is any general register except 0. 


For an array, the address of the first 
variable in the array is placed in the 
argument list. An array [for example, a 
three-dimensional array C(3,2,2)] appears 
in this format in main storage. 


C(i,1,1) C(2,1,1) C(3,1,1) C(1,2,1)--, 
ma os in ae Sui Se hn ne ar i Se aoe ae a oc 
t-c(2,2,1) C(3,2,1) C(1,1,2) C(2,1,2)--4 

So a aie cea aac Jd 
pean See 
loC(3,1,:2) Clls2¢2) “C(272;,2)° “C3725 2) 


Table 21 shows the general subscript format 
for arrays of 1, 2, and 3 dimensions. 


Table 21. Dimension and Subscript Format 
Ss My ee ee ere 1 
| 


Array A | Subscript Format | 
}-----------}~---------------------------- | 
JA(D1) {JA(S1) | 
JA(D1,D2) JA(S1,S2) | 
{A(D1,D2,D3) JA(S1,S2,583) | 
eat Sta peso Bice Seta as te ee 


|D1, D2, and D3 are integer constants used| 
{in the DIMENSION statement. S1, S2, and | 
|S3 are subscripts used with subscripted | 
|variables. | 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are 


DISPLC=(S1-1)*L 
DISPLC=(S1-1) *L+ (S2-1) *D1¥*¥L 
DISPLC=(S1-1) *L+ (S2-1) *D1*L+ (S3-1) #D2*D14*L 


Vo 
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where 
L is the length of each variable in 
the array. 


For example, the variable C(2,1,2) in 
the main program is to be moved to a loca- 
tion ARVAR in the subprogram. Using the 
formula for displacement of integer 
variables in a three-dimensional array, the 
displacement (DISP) is calculated to be 28. 
The following instructions can be used to 
move the variable, 


O,8(1) 

R, DISP 

S,0(Q,R) 
T  S,ARVAR 


NQeee 


where 
Q and R are any general register 
except 0. 
S is any general register. 
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APPENDIX D: SYSTEM DIAGNOSTICS 


This appendix contains a detailed de- 
scription of the diagnostic messages pro- 
duced during compilation and load module 
execution. 


16) 


COMPILER DIAGNOSTIC MESSAGES n=1 
n=2 


Two types of compiler diagnostic mes- 
sages are generated - informative and 
error/warning. 


Compiler Informative Messages 


Two informative messages are generated 
by the compiler to inform the programmer or 
operator of the status of the compilation. 
The messages are shown with any compiler 
action taken. 


LEVEL- dmthyr OS/360 FORTRAN IV 
DATE- yy.ddd/HH.mm.ss 


Explanation: This message is generated at 
the beginning of every compilation. The 
level date of the compiler is given by 
"dmthyr", where @ is the day of the month 
(mth) in the year (yr). The number of the 
day (ddd) in the year (yy) that the compi- 
lation takes place is given by "yy.ddd"; 
the time of day in hours (HH), minutes © 
(mm), and seconds (ss) (based on a 24-hour 
clock) is given by “"Hi.mm.ss". The time is 
also punched into the END card of the 
object deck. 


COMPILER OPTIONS - optionfoption}... 


Explanation: This message occurs for every 
compilation. Options explicitly specified 
in the PARM parameter and any default 
options appear in the message. 


Compiler Error/Warning Messages 


The following text contains a descrip- 
tion of error/warning messages produced by 
the compiler. The message is shown with an n=3 
explanation, and any compiler action or n=4 
user action that is required. | n=5 


COMPILATION DELETED. n 
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Explanation: 
the FORTRAN System Director. 


tion is deleted because of the reason indi- 
cated by the value of n. 


“where n can be i, 2, 3, 4, 5, 6, or 7 


The message is generated by 
The compila- 


(Condition code - 


Phase 10 Program too large to compile 
A program interrupt occurred during 
execution of the compiler. A prograii 
interrupt message and the contents of 
all registers are written preceding 
the message. 


Figure 74 shows the format of the 
compile-time program interrupt mes- 
sage when the extended error message 
facility has not been specified at 
system generation time. In the old 
PSW, c is a hexadecimal number that 
indicates the cause of the interrup- 
tion; c may be one of the following 
values: 


Cause 

Operation 

Privileged operation 
Execute 

Protection 
Addressing 
Specification 

Data 

Fixed-point overflow 
Fixed-point divide 
Decimal overflow 
Decimal divide 
Exponent overflow 
Exponent underflow 
Significance 
Floating-point divide 





yRHmONWPODARKDUEWNH-HIA 


Following PHASE SWITCH, m is a hexa- 
decimal number that indicates which 
phase of the compiler was executing 
when the interrupt occurred; m may be 
one of the following values: 


Phase 

Phase 10 

Phase 10 (STALL routine) 
Phase 15 (PHAZ15 routine) 
Phase 15 (CORAL routine) 
10 Phase 20 

20 Phase 25 

4Q0 Phase 30 





OF NPIS 


Phase 15 Program too large to compile 
Phase 20 Program too large to compile 
Phase in control requested System 
Director to terminate compilation 
immediately. (Any error messages 


Ea 


/ 


Figure 74. 


generated by the calling phase will 
also be written.) 


n=6 


Error detected by IHCFCOMH (IBCOM) 


I/O error detected during compilation 
- an IHCxxxI message may also be 
generated 


n=7 


End of file, 


no END statement in 


source module 


IEKO01I 


ITEKOO2I 


ITEKOO31 


IEKOOSI 


IEKOO6IL 


IEKO07I 


ITEKOO8I1 


IEKOO9I 


IEKO10I 


THE NUMBER OF ENTRI“£S IN THE ERROR 
TABLE HAS EXCEEDED THE MAXIMUM. 


(Condition code - 8&) 


THE DO LOOPS ARE INCORRECTLY 
NESTED. 


(Condition code - 8) 


THE EXPRESSION HAS AN INVALID LOG- 
ICAL OPERATOR. 


(Condition code - 8) 


THE STATEMENT HAS AN INVALID USE 
OF PARENTHESES. 


(Condition code - 8) 


THE STATEMENT HAS AN INVALID 
LABEL. 


(Condition code - 8) 


THE EXPRESSION HAS AN INVALID 
DOUBLE DELIMITER. 


(Condition code - 8) 

THE EXPRESSION HAS A CONSTANT 
WHICH IS GREATER THAN THE ALLOW- 
ABLE MAGNITUDE. 


(Condition code - 8) 


THE EXPRESSION HAS A NON-NUMERIC 
CHARACTER IN A NUMERIC CONSTANT. 


(Condition code - 8) 


THE EXPRESSION HAS A CONSTANT WITH 
AN INVALID EXPONENT. 


(Condition code - 8) 


Compile-Time Program Interrupt Message 


ITEKO111 


IEK0121 


IEK0131 


IEKO14T 


IEKO161 


IEK0171 


IEKO191. 


TEKO201 


ITEKO21T 


IEKO0221 


IEKO231 


Appendix D: 


THE ARITHMETIC OR LOGICAL EXPRES- 
SION USES AN EXTERNAL FUNCTION 
NAME AS A VARIABLE NAME. 
(Condition code - 8) 

THE EXPRESSION HAS A COMPLEX CON- 
STANT WHICH IS NOT COMPOSED OF 
REAL CONSTANTS. 


(Condition code - 8) 


AN INVALID CHARACTER IS USED AS A 
DELIMITER. 


(Condition code - 8) 


THEK STATEMENT HAS AN INVALID NON- 
INTEGER CONSTANT. 


(Condition code - 8) 


THE GO TO STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 

THE ASSIGNED OR COMPUTED GO TO HAS 
AN INVALID ELEMENT IN ITS STATE- 
MENT NUMBER LIST. 


(Condition code - 8) 


THE ASSIGNED GO TO HAS THE OPENING 
PARENTHESIS MISPLACED OR MISSING. 


(Condition code - 8) 

THE ASSIGNED GO TO HAS AN INVALID 
DELIMITER FOLLOWING THE ASSIGNED 
VARIABLE. 


(Condition code - 8) 


THE COMPUTED GO TO HAS AN INVALID. 
COMPUTED VARIABLE. 


(Condition code - 8) 


THE VARIABLE IN THE ASSIGNED GO TO 
STATEMENT IS NOT INTEGRAL. 


(Condition code - 8) 


THE DEFINE FILE STATEMENT HAS AN -— 
INVALID DATA SET REFERENCE NUMBER. 


(Condition code - &) 
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ITEKO241 


IEKO25I 


ITEKO0261 


IEKO271I 


IEKO28I 


IEKO30I 


ITEK031I 


IEKO341 


ITEKO351 


IEKO361 


ITEKO391 


ITEKO4OTL 


ITEKO44T 
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THE DEFINE FILE STATEMENT HAS AN 
INVALID, DELIMITER. 


(Condition code - 8) 


THE DEFINE FILE STATEMENT HAS AN 
INVALID INTEGER CONSTANT AS THE 
RECORD NUMBER OR SIZE. 


(Condition code - 8) 


THE DEFINE FILE STATEMENT HAS AN 
INVALID FORMAT CONTROL CHARACTER. 


(Condition code - 8) 


THE ASSIGN STATEMENT HAS AN INVAL- 
ID INTEGER VARIABLE. 


(Condition code - 8) 


THE ASSIGN STATEMENT HAS AN INVAL- 
ID DELIMITER. 


(Condition code - 8) 


THE DO STATEMENT HAS AN INVALID 
END OF RANGE STATEMENT NUMBER. 


(Condition code - 8) 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID INITIAL VALUE. 


(Condition code - 8) 


THE ASSIGNMENT STATEMENT BEGINS 
WITH A NON-VARIABLE. 


(Condition code - 8) 


THE NUMBER OF CONTINUATION CARDS 
EXCEEDS THE COMPILER LIMIT. 


(Condition code - 8) 


THE STATEMENT CONTAINS INVALID 
SYNTAX. THE STATEMENT CANNOT BE 
CLASSIFIED. 


(Condition code - 8) 


THE DEFINE FILE STATEMENT HAS AN 
INVALID ASSOCIATED VARIABLE. 


(Condition code - 8) 


IT IS ILLEGAL TO HAVE A & STATE- 
MENT NUMBER PARAMETER OUTSIDE A 
CALL STATEMENT. 


(Condition code - 8) 

ONLY THE CALL, FORMAT, OR DATA 
STATEMENTS MAY HAVE LITERAL 
FIELDS. 


(Condition code - 8) 


IEKO45I 


IEKO471 


IEKO50I 


TEKO0521 


TEKO531 


IEKO561I 


IEKO571 


IEKO58I 


IEKO59I 


IEKO062I 


IEKO64I 


ITEKO651 


IEKO66I 


THE EXPRESSION HAS A LITERAL WHICH 
IS MISSING A DELIMITER. 


(Condition code - 8) 


THE LITERAL HAS MORE THAN 255 


CHARACTERS IN IT. 

(Condition code - 8) . 

THE ARITHMETIC IF HAS THE SYNTAX 
OF THE BRANCH LABELS INCORRECT. 
(Condition code - 8) 


THE EXPRESSION HAS AN INCORRECT 
PATRING OF PARENTHESES OR QUOTES. 


(Condition code - 8) 


THE STATEMENT HAS A MISPLACED 
EQUAL SIGN. 


(Condition code - 8) 


THE FUNCTION STATEMENT MUST HAVE 
AT LEAST ONE ARGUMENT. 


(Condition code - 8) 


THE STATEMENT HAS A NON-VARIABLE 
SPECIFIED AS A SUBPROGRAM NAME. 


(Condition code - 8) 


THE SUBPROGRAM STATEMENT HAS AN 
INVALID ARGUMENT. 


(Condition code - 8) 


THE FUNCTION STATEMENT HAS AN IN- 
VALID LENGTH SPECIFICATION. 


(Condition code - 8) 

THE EQUIVALENCE STATEMENT HAS AN 
ARRAY WITH AN INVALID NUMBER OF 
SUBSCRIPTS. 


(Condition code - 8) 


THE NAMELIST STATEMENT HAS AN IN- 
VALID DELIMITER. 


(Condition code - 8) 

THE NAMELIST STATEMENT HAS A NAME- 
LIST NAME NOT BEGINNING WITH AN 
ALPHABETIC CHARACTER. 


(Condition code - 8) 


THE NAMELIST STATEMENT HAS A NON- 
UNIQUE NAMELIST NAME. 


(Condition code - 8) 


» 


TEKO671 


ITEKO69T1 


ITEKO701 


ITEKO711 


ITEKO721 


ITEKO731 


IEKO741I 


ITEKO751 


IEKO761 


ITEKO771I 


IEKO78I 


TEKO791 


THE NAMELIST STATEMENT HAS AN IN- 
VALID LIST ITEM. 


(Condition code - 8) 


THE COMMON STATEMENT HAS AN INVAL- 
ID DELIMITER. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT HAS A 
MISSING OR MISPLACED DELIMITER. 


(Condition code - 8) 

THE EQUIVALENCE STATEMENT DOES NOT 
SPECIFY AT LEAST TWO VARIABLES TO 
BE ECUIVALENCED. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT HAS AN 
INVALID VARIABLE NAME. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT HAS A 
SUBSCRIPT WHICH IS NOT AN INTEGER 
CONSTANT. 


(Condition code - 8) 


THE STATEMENT HAS A VARIABLE WITH 
MORE THAN SEVEN SUBSCRIPTS. 


(Condition code - 8) 

THE COMMON STATEMENT HAS A VARI- 
ABLE THAT HAS BEEN REFERENCED IN A 
PREVIOUS COMMON STATEMENT. 
(Condition code - 8) 

THE IMPLICIT STATEMENT IS NOT THE 
FIRST STATEMENT IN A MAIN PROGRAM 
OR THE SECOND STATEMENT IN A 
SUBPROGRAM. 

(Condition Code - &) 


THE IMPLICIT STATEMENT HAS A MIS- 
PLACED DELIMITER IN THE TYPE SPE- 
CIFICATION FIELD. 

(Condition code - 8) 


THE IMPLICIT STATEMENT HAS AN IN- 
VALID TYPE. 


(Condition code - 8) 


THE IMPLICIT STATEMENT HAS A MIS- 
SING LETTER SPECIFICATION. 


(Condition code - 8) 


ITEKO80I 


IEKO811I 


TEKO08 21 


IEKO0831 


IEKO84I 


IEKO8 61 


IEKO871 


IEKO90I 


IEKO91T 


ITEK092I 


IEK09 31 


IEKO94T 


TEKO95I 
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THE IMPLICIT STATEMENT HAS AN IN- 
VALID LETTER SPECIFICATION. 


(Condition code - 8) 

THE IMPLICIT STATEMENT HAS AN IN- 
VALID DELIMITER. 

(Condition code - 8) 

THE IMPLICIT STATEMENT DOES NOT 
END WITH A RIGHT PARENTHESIS. 
(Condition code - 8) 

THE IMPLICIT STATEMENT HAS A MIS- 
PLACED DELIMITER IN ITS PARAMETER 
FIELD. 

(Condition code - 8) 


THE IMPLICIT STATEMENT CONTAINS A 
LITERAL FIELD. 


(Condition code - 8) 


THE COMMON STATEMENT SPECIFIES A 
NON-VARIABLE TO BE ENTERED. 


(Condition code - 8) 


THE COMMON STATEMENT SPECIFIES A 
NON-VARTABLE COMMON BLOCK NAME. 


(Condition code - 8) 


THE EXTERNAL STATEMENT HAS A NON- 
VARIABLE DECLARED AS EXTERNAL. 


(Condition code - 8) 


THE EXTERNAL STATEMENT HAS AN IN- 
VALID DELIMITER. 


(Condition code - 8) 


THE TYPE STATEMENT MULTIPLY 
DEFINES THE VARIABLE. 


Condition code - 8) 


THE TYPE STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


THE TYPE STATEMENT HAS A NON- 
VARIABLE TO BE TYPED. 


(Condition code - 8) 


THE TYPE STATEMENT HAS THE WRONG 
LENGTH FOR THE GIVEN TYPE. 


(Condition code - 8) 
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IEKO96I1 


IEK1011 


IEK1021 


ITEK1041I 


IEK1091 


IEK1101 


IEK1111 


IEK1121 


TEK1151 


IEK1161 


TEK1171 


IEK1201 
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THE TYPE STATEMENT HAS A MIOSING 
DELIMITER. 


(Condition code - 8) 

THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID DELIMITER. 

(Condition code - 8) 

THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS AN INVALID 
DELIMITER. 

(Condition code - 8) 

THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS A DATA SET REFERENCE 
NUMBER THAT IS EITHER A NON- 
INTEGER OR AN ARRAY NAME. 


(Condition code - 8) 


THE PAUSE STATEMENT HAS A MIS- 
PLACED DELIMITER. 


(Condition code - 8) 

THE PAUSE STATEMENT SPECIFIES A 
VALUE WHICH IS NEITHER A LITERAL 
NOR AN INTEGER CONSTANT. 
(Condition code - 8) 

THE PAUSE STATEMENT HAS MORE THAN 
255 CHARACTERS IN ITS LITERAL 
FIELD. 

(Condition code - 8) 

THE DICTIONARY HAS OVERFLOWED. 
(Condition code - 16) 

THE VARIABLE RETURN STATEMENT HAS 
NEITHER AN INTEGER CONSTANT NOR 
VARIABLE FOLLOWING THE KEYWORD. 


(Condition code - 8) 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID PARAMETER. 


(Condition code - 8) 


THE BLOCK DATA STATEMENT. HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 

THE BLOCK DATA STATEMENT WAS NOT 
THE FIRST STATEMENT OF THE 
SUBPROGRAM. . 


(Condition code - 8) 


ITEK1211 


IEK1221 


TEK1231 


IEK1241 


IEK1i251 


IEK1291 


IEK1321 


TEK1331 | 


IEK1i34I1 


IEK1351 


IEK1361 


IEK1371 


THE DATA STATEMENT HAS A VARIABLE 
WHICH HAS A NON-ALPHABETIC FIRST 
CHARACTER. . 

(Condition code - 8). 

THE DATA STATEMENT CONTAINS A SUB- 
SCRIPTED VARIABLE. WHICH HAS NOT 
BEEN DEFINED AS AN ARRAY. 
(Condition code - 8) 


THE DATA STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


THE DATA STATEMENT HAS A VARIABLE 
WITH AN INVALID INTEGER SUBSCRIPT. 
(Condition code - 8) 

THE DATA STATEMENT HAS A VARIABLE 
WITH A SUBSCRIPT THAT CONTAINS AN 
INVALID DELIMITER. 


(Condition code - 8) 


THE STATEMENT CONTAINS AN INVALID 
DATA CONSTANT. 


(Condition code - 8) 

THE DATA STATEMENT HAS AN INVALID 
DELIMITER IN ITS INITIALIZATION 
VALUES. 


(Condition code - 8) 


THE DO STATEMENT CANNOT FOLLOW A 
LOGICAL IF STATEMENT. 


(Condition code - 8) 


THE DO STATEMENT HAS AN INVALID 
INTEGER DO-VARIABLE. 


(Condition code - 8) 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID TEST VALUE. 


(Condition code - 8) 


THE NUMBER OF NESTED DO'S EXCEEDS 
THE COMPILER LIMIT. 


(Condition code - 8) 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID INCREMENT VALUE. 


(Condition code - 8) 





Ss 


ITEK1381 


ITEK1391 


TEK1401 


TEK141iT 


TIEK1431 


TEK1441 


IEK145I 


IEK1i46I 


IEK1471 


IEK1 481 


IEK1491I 


IEK1501 


THE DO STATEMENT HAS A PREVIOUSLY 
DEFINED STATEMENT NUMBER SPECIFIED 
TO END THE DO RANGE. 

(Condition code - 8) 

A LOGICAL IF IS FOLLOWED BY ANOTH- 
ER LOGICAL IF OR A SPECIFICATION 
STATEMENT. 

(Condition code - 8) 

THE IF STATEMENT BEGINS WITH AN 
INVALID CHARACTER. 

(Condition code - 8) 

THE FORMAT STATEMENT DOES NOT END 
WITH A RIGHT PARENTHESIS. 


(Condition code - 8) 


THE STATEMENT FUNCTION HAS AN 
ARGUMENT WHICH IS NOT A VARIABLE. 


(Condition code - 8) 


THE STATEMENT FUNCTION HAS MORE 
THAN 20 ARGUMENTS. 


(Condition code - 8) 


THE STATEMENT FUNCTION HAS AN IN- 
VALID DELIMITER. 


(Condition code - 8) 


THE STATEMENT FUNCTION HAS A MIS- 
PLACED EQUAL SIGN. 


(Condition code - 8) 

A STATEMENT FUNCTICN DEFINITION 
MUST PRECEDE THE FIRST EXECUTABLE 
STATEMENT. 


(Condition code - 8) 


THE DIMENSIONED ITEM HAS A NON- 
INTEGER SUBSCRIPT. 


(Condition code - 8) 

A VARIABLE TO BE DIMENSIONED USING 
ADJUSTABLE DIMENSIONS MUST HAVE 
BEEN PASSED AS AN ARGUMENT AND 
MUST NOT APPEAR IN COMMON. 
(Condition code - 8) 


THE DIMENSIONED ITEM HAS AN INVAL- 
ID DELIMITER. 


(Condition code - 8) 


IEK1511 


A 


mn 
ho 
tt 


TEK1' 


TEK1531 


IEK1561 


IEK1i571 


IEK1i581 


ITEK1591 


IEK160I1 


IEK1611 


ITEK1631 


IEK1651 


IEK1661 


THE STATEMENT SPECIFIES A NON- 
VARIABLE TO BE DIMENSIONED. 


(Condition code - 8) 


THE SUBPROGRAM STATEMENT HAS AN 
INVALID DELIMITER IN THE ARGUMENT 
LIST. 

(Condition code - 8) 


THE STATEMENT HAS AN INVALID NAME 
SPECIFIED AS A FUNCTION REFERENCE. 


(Condition code - 8) 


THE I/O STATEMENT HAS AN INVALID 
NAME PRECEDING THE ECUAL SIGN. 


(Condition code - 8) 


THE I/O STATEMENT HAS A NON- 
VARIABLE SPECIFIED AS A LIST ITEM. 


(Condition code - 8) 


THE I/O STATEMENT HAS AN IMPROPFR 
PAIRING OF PARENTHESES IN AN 
IMPLIED DO, OR A NON-INTEGRAL 
INDEX. 


(Condition code - 8) 


THE FORMAT STATEMENT DOES NOT HAV: 
A STATEMENT NUMBER. 


(Condition code - 4) 


THE I/O STATEMENT HAS AN INVALID 
DELIMITER IN THE PARAMETERS. 


(Condition code - 8) 


THE I/O STATEMENT HAS A DUPLICATE 
PARAMETER. 


(Condition code - 8) 


THE I/O STATEMENT HAS AN ARRAY 
WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 

THE I/O STATEMENT HAS A PARAMETER 
WHICH IS NOT AN ARRAY AND NOT A 
NAMELIST NAME. 


(Condition code - 8) 


THE I/O STATEMENT HAS A NON- 
INTEGER CONSTANT OR VARIABLE 
REPRESENTING THE DATA SET 
REFERENCE NUMBER. 


(Condition code - 8) 
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TEK1671 


IEK1i681 


ITEK1691. 


IEK1701 


ITEK1711 


ITEK1761 


ITEK1921 


TEK1931 


TEK1I94T1 


IEK1971 


ITEK1991I 
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THE STATEMENT HAS AN INVALID USE 
OF A STATEMENT FUNCTION NAME. 


(Condition code - 8) 


THE STATEMENT SPECIFIES AS A SUB- 
PROGRAM NAME A VARIABLE WHICH HAS 
BEEN PREVIOUSLY USED AS A NON- 
SUBPROGRAM NAME. 


(Condition code - 8) 


THE DIRECT ACCESS I/O STATEMENT 
MAY NOT SPECIFY A NAMELIST NAME. 


(Condition code - 8) 


THE DIRECT ACCESS I/O STATEMENT 
HAS A NON-INTEGER SPECIFYING THE 
RECORD'S RELATIVE POSITION. 


(Condition code - 8) 


THE NAME SPECIFIED FOR AN ENTRY 
POINT HAS ALREADY BEEN USED AS 
EITHER A VARIABLE SUBROUTINE OR 
FUNCTION NAME. 


(Condition code - 8) 


THE I/O STATEMENT CONTAINS INVALID 
SYNTAX IN ITS IMPLIED DO. 


(Condition code - 8) 

THE STATEMENT HAS A LABEL WHICH IS 
SPECIFIED AS BCTH THE LABEL OF A 
FORMAT STATEMENT AND THE OBJECT OF 
A BRANCH. 


(Condition code - 8) 


THE STATEMENT NUMBER HAS BEEN PRE- 
VIOUSLY DEFINED. 


(Condition code - 8) 

THE TYPE STATEMENT HAS A MISSING 
DELIMITER IN THE INITIALIZATION 
VALUES. 

(Condition code - 8) 

THE STOP STATEMENT HAS A NON- 
INTEGER CONSTANT AFTER THE 
KEYWORD. 


(Condition code - 8) 


THE SUBROUTINE OR FUNCTION STATE- 
MENT WAS NOT THE FIRST STATEMENT. 


(Condition code - 8) 


IEK2001 


IEK2021 


IEK204T 


IEK205I 


IEK206I 


TEK2071 


IEK2081 


TEK2091 


TEK2111 


IEK2121 


IEK2221 


ITEK2241 


QUOTE LITERALS MAY APPEAR ONLY IN 
CALL, DATA, FUNCTION AND FORMAT 
STATEMENTS. 

(Condition code - 8) 

THE STATEMENT HAS A VARIABLE WHICH 
HAS BEEN PREVIOUSLY DIMENSIONED. 
THE INITIAL DIMENSION FACTORS ARE 
USED. 7 

(Condition code - 4) 


THE STOP STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 4) 

THE ASSIGNED OR COMPUTED GO TO HAS 
AN INVALID ELEMENT FOLLOWING THE 
CLOSING PARENTHESIS. 


(Condition code - 4) 


THE STATEMENT HAS A NON- 
SUBSCRIPTED ARRAY ITEM. 


(Condition code - 4) 


THE CONTINUE STATEMENT DOES NOT 
END AFTER THE KEY WORD CONTINUE. 


(Condition code - 4) 


THE CONTINUE STATEMENT DOES NOT 
HAVE A STATEMENT NUMBER. 


(Condition code - 4) 

THE STATEMENT HAS AN OCTAL CON- 
STANT SPECIFIED AS AN INITIAL 
VALUE. THE VALUE IS REPLACED BY 
ZERO & 

(Condition code - 4) 

THE STATEMENT HAS A COMPLEX CON- 
STANT WHOSE REAL CONSTANTS DIFFER 
IN LENGTH. 


(Condition code - 4) 


THE BLOCK DATA SUBPROGRAM CONTAINS 
EXECUTABLE STATEMENT(S). THE 
EXECUTABLE STATEMENT(S) IS 
IGNORED. 


(Condition code - 4) 


THE EXPRESSION HAS A LITERAL WITH 
A MISSING DELIMITER. 


(Condition code - #4) 


THE STATEMENT AFTER AN ARITHMETIC 
IF, GO TO, OR RETURN HAS NO LABEL. 


(Condition code - 4) 


er 
hs 


TEK2251 


ITEK2261 


TEK2291 


TEK3021 


ITEK3031 


LEK3041 


ITEK3051 


TEK3061 


TEK3071 


ITEK3081 


IEK3101 


TEK3121 


A LABEL APPEARS ON A NON- 
EXECUTABLE STATEMENT. THE LABEL 
IS IGNORED. 

(Condition code - 4) 

THE STATEMENT HAS A VARIABLE WITH 
MORE THAN SIX CHARACTERS. THE 
RIGHTMOST CHARACTERS ARE 
TRUNCATED. 

(Condition code - 4) 

ALL THE ARGUMENTS OF AN ARITHMETIC 
STATEMENT FUNCTION ARE NOT USED IN 
THE DEFINITION. 

(Condition code - 4) 

THE EQUIVALENCE STATEMENT HAS 
EXTENDED COMMON BACKWARDS. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT CONTAINS 
AN ARRAY WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT HAS 
LINKED BLOCKS OF COMMON TOGETHER. 


(Condition code - 8) 


THE COMMON STATEMENT CONTAINS AN 
ARRAY WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT HAS AN 
INCONSISTENCY. 


(Condition code - 8) 


THE DATA STATEMENT CONTAINS A 
VARIABLE THAT IS NOT REFERENCED. 


(Condition code - 4) 

THE EQUIVALENCE STATEMENT HAS 
EBQUIVALENCED TWO VARIABLES IN THE 
SAME COMMON BLOCK. 

(Condition code - 8) 

THE EQUIVALENCE STATEMENT HAS A 
VARIABLE WITH A VARIABLE 
DIMENSION. 


(Condition code - 8) 


THE EQUIVALENCE STATEMENT CONTAINS 
AN EXTERNAL REFERENCE. 


(Condition code - 8) 


TEK3141 


TEK3151 


IEK3171 


ITEK3181 


ITEK3191I 


TEK3201 


ITEK3221 


ITEK3231 


IEK3321 


LTEK334T1 


ITEK3501 


LTEK3521 
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THE EQUIVALENCE STATEMENT MAY 
CAUSE WORD BOUNDARY ERRORS. 


(Condition code - 4) 

THE EQUIVALENCE STATEMENT WILL 
CAUSE WORD BOUNDARY ERRORS. 
(Condition code - 4) 

THE BLOCK DATA PROGRAM DOES NOT 
CONTAIN A COMMON STATEMENT. 
(Condition code - 8) 

THE DATA STATEMENT IS USED TO 
ENTER DATA INTO COMMON OUTSIDE A 
BLOCK DATA SUBPROGRAM. 
(Condition code - 8) 


DATA IS ENTERED INTO A LOCAL VARI- 
ABLE IN A BLOCK DATA PROGRAM. 


(Condition code - 8) 

DATA MAY NOT BE ENTERED INTO A 
VARIABLE WHICH HAS BEEN PASSED AS 
AN ARGUMENT. 


(Condition code - 8) 


THE COMMON STATEMENT WILL CAUS2 
WORD BOUNDARY ERRCRS. 


(Condition code - 4) 


THE COMMON STATEMENT MAY CAUSE A 
WORD BOUNDARY ERROR. 


(Condition code - 4) 


THE STATEMENT NUMBER IS UNDEFINED. 


(Condition code - 8) 


THE COMMON STATEMENT HAS A VARI- 
ABLE WITH A VARIABLE DIMENSION. 


(Condition code - 8) 


THE DATA STATEMENT HAS A MISSING 
PARENTHESIS. 


(Condition code - 8) 
THE DATA TYPE STATEMENT HAS TOO 
MANY INITIALIZATION VALUES. 


(Condition code - 4) 
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IEK3531 


IEK3551 


IEK3561 


IEK5OOL 


ITEK501I 


LEK5021 


IEK5031 


IEK5SO4I 


IEK5O5I 


LIEK5061 


IEK5071I 


TEK5081 
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THE DIMENSION STATEMENT HAS A 
VARIABLE WHICH HAS A SUBSCRIPT OF 
REAL MODE. 


(Condition code - 8) 


ADCON TABLE EXCEEDED. 


(Condition code - 8) 


A PARAMETER CANNOT ALSO BE IN 
COMMON. 


(Condition code - 8) 


AN ARGUMENT TO A FORTRAN SUPPLIED 
FUNCTION IS OF THE WRONG TYPE. 
THE FUNCTION IS TREATED AS 
EXTERNAL. 

(Condition code - 4) 


THE EXPRESSION HAS A COMPLEX 
EXPONENT. 


(Condition code - 8) 

THE EXPRESSION HAS A BASE WHICH Is 
COMPLEX BUT THE EXPONENT IS 

NON- INTEGER. 

(Condition code - 8) 

A NON-SUBSCRIPTED ARRAY ITEM 
APPEARS IMPROPERLY WITHIN A FUNC- 
TION REFERENCE OR A CALL. 


(Condition code - 8) 


THE BASE AND/OR EXPONENT IS A LOG- 
ICAL VARIABLE. 


(Condition code - 8) 

THE INPUT/OUTPUT STATEMENT REFERS 
TO THE STATEMENT NUMBER OF A NON- 
FORMAT STATEMENT. 


(Condition code - 8) 


THERE IS A MISSING OPERAND PRE- 
CEEDING A RIGHT PARENTHESIS. 


(Condition code - 8) 

A NON-SUBSCRIPTED ARRAY ITEM IS 
USED AS AN ARGUMENT TO AN IN-LINE 
FUNCTION. 


(Condition code - 8) 


THE NUMBER OF ARGUMENTS TO AN IN- 
LINE FUNCTION IS INCORRECT. 


(Condition code - 8) 


IEK5091I 


TEK5101 


IEK5111I 


IEK5121 


ITEK515I1I 


ITEK5161 


ITEK520I 


IEK5211 


IEK5221I 


ITEK5231 


IEK524]1 


IEK5251 


ITEK5291 


THE PROGRAM DOES NOT END WITH A 
STOP, RETURN, OR GO TO. 


(Condition code - 4) 

THE EXPRESSION HAS A LOGICAL 
OPERATOR WITH A NON-LOGICAL 

OPERAND. 

(Condition code - 8) 

THE EXPRESSION HAS A LOGICAL 
OPERATOR WITH A NON-LOGICAL 

OPERAND. 


(Condition code - 8) 


THE LOGICAL IF DOES NOT CONTAIN A 
LOGICAL EXPRESSION. 


(Condition code - 8) 


THE EXPRESSION HAS A RELATIONAL 
OPERATOR WITH A COMPLEX OPERAND. 


(Condition code - 8) 


THE ARITHMETIC IF CONTAINS A COM- 
PLEX EXPRESSION. 


(Condition code - 8) 


THERE IS A COMMA IN AN INVALID 
POSITION. 


(Condition code - 8) 


THE EXPRESSION HAS AT LEAST ONE 
EXTRA RIGHT PARENTHESIS. 


(Condition code - 8) 


‘ , 
THE EXPRESSION HAS AT LEAST ONE 
TOO FEW RIGHT PARENTHESES. 


(Condition code - 8) 

THE EQUAL SIGN IS IMPROPERLY USED. 
(Condition code - 8) 

THE EXPRESSION HAS AN OPERATOR 
MISSING AFTER A RIGHT PARENTHESIS. 
(Condition code - 8) 

THE EXPRESSION USES A LOGICAL OR 
RELATIONAL OPERATOR INCORRECTLY. 
(Condition code - 8) 

A FUNCTION NAME APPEARING AS AN 
ARGUMENT HAS NOT BEEN DECLARED 


EXTERNAL. 


(Condition code - 8) 





IEK5301 


IEK5311 


IEK5411 


ITEK5421I 


IEK5501 
ITEK5521 


IEK5701 


IEK580I 


IEK6001 


THE EXPRESSION HAS A VARIABLE WITH 
AN IMPROPER NUMBER OF SUBSCRIPTS. 


(Condition code - 8) 


THE EXPRESSION HAS A STATEMENT 
FUNCTION REFERENCE WITH AN IMPROP- 
ER NUMBER OF ARGUMENTS. 

(Condition code - 8) 


AN ARGUMENT TO A LIBRARY FUNCTION 
HAS AN INVALID TYPE. 


(Condition code - 8) 


A LOGICAL EXPRESSION APPEARS IN 
INVALID CONTEXT. 


(Condition code - 8) 
PUSHDOWN, ADCON, OR ASF ARGUMENT 
(Condition code - 16) 

SOURCE PROGRAM IS TOO LARGE. 
(Condition code - 16) 


TABLE EXCEEDED. 
DOWNGRADED. 


OPTIMIZATION 


Explanation: The program is too 
large to permit optimization. 

This is a warning message and 
appears in the source listing at 
the point where the table (RMAJOR) 
overflows. The compiler performs 
OPT=1 register allocation only; no 
other optimization is performed. 


(Condition code - 0) 


User Response: Either the program 
should be segmented or the size of 
the table RMAJOR should be 
increased. Documentation of how 
to increase RMAJOR is available 
through a local IBM branch office. 


COMPILER ERROR. 


Explanation: One of the following 
four conditions occurred: an in- 
valid adjective code was detected; 
an illegal element length was 
detected; no equivalence group was 
found; an unusual primary adjec- 
tive code was detected. 


(Condition code - 16) 

INTERNAL COMPILER ERROR. LOGICAL~ 
LY IMPOSSIBLE BRANCH TAKEN IN A 
COMPILER SUBROUTINE. 


(Condition code - 16) 


TEK6101I 


TEK6201 


ITEK6301 


ITEK6401 


IEK6501I 


ITEK660I 


ITEK6701 


ITEK6711 


IEK7101 


IEK7201I 


TEK7301 


ITEK7401I 


IEK7501 
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THE STATEMENT NUMBER OR GENERATED 
LABEL IS UNREACHABLE. 


(Condition code - 4) 

THE STATEMENT NUMBER OR GENERATED 
LABEL IS A MEMBER OF AN UNREACH- 
ABLE LOOP. 

(Condition code - 4) 

INTERNAL TOPOLOGICAL ANALYSIS 


TABLE EXCEEDED. 


(Condition code - 16) 


COVERAGE BY BASE REGISTER 12 IN 
OBJECT MODULE EXCEEDED. 
(Condition code - 16) 

INTERNAL ADCON TABLE EXCEEDED. 
(Condition code - 16) 

INTERNAL COMPILER ERROR. TEM- 
PORARY FETCHED BUT NEVER STORED. 
(Condition code - 16) 


LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 
(Condition code - 16) 


LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 


THE FORMAT STATEMENT SPECIFIES A 
FIELD WIDTH OF ZERO. 


(Condition code - 8) 


THE FORMAT STATEMENT CONTAINS AN 
INVALID CHARACTER. 


(Condition code - 8) 


THE FORMAT STATEMENT HAS UNBAL- 
ANCED PARENTHESES. 


(Condition code - 8) 


THE FORMAT STATEMENT HAS NO BEGIN- 
NING LEFT PARENTHESIS. 


(Condition code - 8) 


THE FORMAT STATEMENT SPECIFIES A_ 
COUNT OF ZERO FOR A LITERAL FIELD. 


(Condition code - 8) 
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IEK760I THE FORMAT STATEMENT CONTAINS A 
MEANINGLESS NUMBER. 


(Condition code - 8) 


IEK770I THE FORMAT STATEMENT HAS A MISSING 
? DELIMITER. 


(Condition code - 8) 

TEK7801I THE FORMAT STATEMENT CONTAINS A 
NUMERIC SPECIFICATION GREATER THAN 
255. 
(Condition code - 8) 

ITEK800I SOURCE PROGRAM IS TOO LARGE. 
(Condition code - 16) 

IEK1LOOOI INTERNAL COMPILER ERROR 
Explanation: An erroneous error 
number has been placed in the 


error table. 


(Condition code - 4) 


LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The load module produces three types of 
diagnostic messages: 


Program interrupt messages. 
Execution error messages. 
Operator message. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are writ- 
ten when an exception occurs. The format 
of the program interrupt message when the 
extended error message facility has not 
been specified at system generation time is 
given in Figure 75. 


| 
| 
| 
| 
| (P) 
| 
| 
| 
L 


Figure 75. 
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IHC210I PROGRAM et OLD PSW IS XxXxXxxxx 


Program Interrupt Message Format Without Extended Error Message Facility 


Note: Codes 4, 5, 6, and 7 are associated 
with the execution-time adjustment of 
boundary alignment errors and appear only 
when the system is generated to provide 
boundary alignment adjustment; i.e., when 
BOUNDRY=ALIGN is specified in the FORTLIB 
macro instruction during system generation. 


The letter A in the message indicates 
that boundary adjustment has taken place. 
The letter P in the message indicates that 
the interruption was precise. This will 
always be the case for non-specification 
interrupt messages in FORTRAN except when 
using machines with special hardware on 
which imprecise interruptions may occur. 
The eighth character in the PSW (i.e., 4, 
5, 6, 7, 9, C, D, or F) represents the code 
number (in hexadecimal) associated with the 
type of interruption. The following text 
describes these interruptions. 


Protection Exception: The protection 
exception (code 4), is recognized when the 
key of an operand in storage does not match 
the protection key in the PSW. A message 
is issued only if a specification exception 
(code 6) has already been recognized in the 
same instruction. Otherwise, the job ter- 
minates abnormally. 


Addressing Exception: The addressing 
exception (code 5) is recognized when the 


address of the data is outside of the 
available storage for the particular 
installation. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


Specification Exception: The specification 
exception (code 6) is recognized when a 


data address does not specify an integral 
boundary for that unit of information. A 
specification error would occur during 
execution of the following instructions. 


REAL*8 D, E 
COMMON A, B, C 
EQUIVALENCE (B, D) 
D = 3.0D02 


RKXXXKXK 


EN 





Note: If an instruction contains a bounda- 
ry violation, a specification interrupt 
occurs and the message is issued with code 
6. The boundary adjustment routine is 
invoked if the BOUNDRY=ALIGN option was 
specified in the FORTLIB macro instruction 
during system generation. If an instruc- 
tion which has been processed for a bounda- 
ry violation also contains a protection, 
addressing, or data error, the interrupt 
message is reissued with the appropriate 
code (4, 5, or 7). The job then terminates 
because both a specification error anda 
protection, addressing, or data error have 
been detected. The completion code in the 
dump indicates that the job terminated 
because of the specification error. 





Data Exception: The data exception (code 
7), is recognized when the sign and digit 
codes for a CONVERT TO BINARY instruction 
are incorrect. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


Fixed-Point-Divide Exception: The fixed- 
point-divide exception, assigned code num- 


ber 9, is recognized when division of a 
fixed-point number by zero is attempted. A 
fixed-point divide exception will occur 
during execution of the following 
statements: 


J=0 
I=7 
K=I/J 


Exponent-Overflow Exception: The exponent- 
overflow exception, assigned code number C, 


is recognized when the result of a 
floating-point addition, subtraction, mul- 
tiplication, or division is greater than or 
equal to 16°? (approximately 7.2 x 1075). 
For example, an exponent-overflow will 
occur during execution of the statement: 


A = 1.0E+75 + 7.2E+75 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format. 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


where: hhhhhhhhhhhhhhhh is the floating- 
point number in hexadecimal 
notation. 


If the improved floating-point engineer- 
ing change is not in effect, the register 
content cannot be used to calculate the 
true value. 


If the improved floating-point engineer- 
ing change is in effect, exponent overflow 
causes “exponent wraparound" - i.e., the 
characteristic field represents an exponent 
that is 128 smaller than the correct one. 
Treating bits 1 to 7 (the exponent charac- 
teristic field) of the floating-point num- 
ber as a binary integer, the true exponent 
may be computed as follows: 


TE = (Bits 1 to 7) + 128 - 64 


Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(1663+ (1-16-©)) or in long precision (166% 
(1-16-14%)), but the sign of the result is 
not changed. The condition code is not 
altered. 


Exponent-—Underflow Exception: The 
exponent-underflow exception, assigned code 


number D, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is less than 
16-©5 (approximately 5.4x10-79). For 
example, an exponent-underflow exception 
will occur during execution of the 
Statement: 


A = 1.0E-50 * 1.0E-50 


Although exponent underflows are mask- 
eble, FORTRAN jobs are executed without the 
mask so that the library will handle such 
interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 
where: hhhhhhhhhhhhhhhh is the floating- 


point number in hexadecimal 
notation. 


If the improved floating-point engineer- 
ing change is not in effect, the exponent 
underflow always leaves a zero in the 
result register. 


If the improved floating-point engineer- 
ing change is in effect, exponent underflow 
causes "exponent wraparound" - i.e., the 
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characteristic field represents an exponent 
that is 128 larger than the correct one. 
Treating bits 1 to 7 (the exponent charac- 
teristic field) of the floating-point num- 
ber as a binary integer, the true exponent 
may be computed as follows: 


TE = (Bits 1 to 7) - 128 - 64 


Before program execution continues, the 
library sets the result register to a true 
zero of correct precision. If the inter- 
rupt resulted from a floating-point addi- 
tion or subtraction operation, the condi- 
tion code is set to zero to reflect the 
setting of the result register. 


Note: The System/360 operating System 
FORTRAN programmer who wishes to take 
advantage of the "exponent wraparound" fea- 
ture and handle the interrupt in his own 
program must call an assembly language sub- 
routine to issue a SPIE macro instruction 
that will override the FORTRAN interruption 
routine. 


Floating-Point-Divide Exception: The 
floating-point-divide exception, assigned 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. A floating-point divide excep- 
tion will occur during execution of the 
following statements: 


B=0.0 
A=1.0 
C=A/B 


Execution Error Messages 


Execution error messages have the form: 


THCxxxI [message text] | 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 
REG. 15, REG. O, REG. 1 


The facility for error detection and 
diagnostic messages is controlled by a sys- 
tem generation option. When the parameter 
OPTERR=EXCLUDE is specified in the FORTLIB 
macro-instruction at system generation time 
(or assumed when no parameter is speci- 
fied), the features described in "Extended 
Error Message Facility" are not available. 


The following text indicates the mes- 
sages printed on the object error unit when 
OPTERR=EXCLUDE. Variable information in 
the message is shown as X. The error codes 
are given with an explanation describing 
the type of error. Preceding the explana- 
tion, an abbreviated name is given indicat- 
ing the origin of the error. For any load 
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module execution error, unless otherwise 
stated, a condition code of 16 is generated 
and the job step is terminated. 


The abbreviated name for the origin of 
the error is: 7 


IBC - IHCFCOMH routine (performs inter-. 
ruption, and error procedures). 


FIOCS - IHCFIOSH routine (performs I/O 
operations for FORTRAN load module 
execution). 


NAMEL - IHCNAMEL routine (performs name- 
list processing). 


DIOCS - IHCDIOSE routine (performs 
direct access I/O operations for FORTRAN 
load module execution). 


IBERR - IHCIBERH routine (performs the 
processing of errors detected during 
execution of the load modules.) 


LIB - SYS1.FORTLIB. In the explanation 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


FCVTH - IHCFCVTH routine (performs 
conversions). 


THC2111 | 
Explanation: IBC -- An invalid 
character has been detected in a 
FORMAT statement. : 


THC 2121 
Explanation: IBC -- An attempt 
has been made to read or write a 
record, under FORMAT control, that 
exceeds the buffer length. 


THC 2131 
Explanation: IBC -- The input 
list in an I/O statement without a 
FORMAT specification is larger 
than the logical record. 


THC2141 
Explanation: FIOCS -- For records 
in sequential data sets read or 
written without FORMAT control, 
for which the RECFM subparameter 
must be V (variable), either U 
(undefined) or F (fixed) was 
specified. 


CONVERT-ILLEGAL DECIMAL CHARACTER 
Xx 


IHC2151 


Explanation: FCVTH -- An invalid 
Character exists for the decimal 








| rHC2161 


IHC 2171 


THC2181 


IHC2191 


IHC2201I 


| IHC2211 


pemcege 


input corresponding to an I, E, F, 
or D format code. 
SLITE-SLITET X IS AN ILLEGAL VALUE 
Explanation: LIB -- An invalid 
sense light number was detected in 


the argument list in a call to the 
SLITE or SLITET subroutine. 


Explanation: IBC -- An end of 
data set was sensed during a READ 
operation; that is, a program 
attempted to read beyond the data. 


I/O ERROR xxx XXX 

Explanation: IBC -- A permanent 
input/output error has been 
encountered or an attempt has been 
made to read or write (with mag- 
netic tape) a record that is less 
than 18 bytes long. The xxx 
xxx is the character string for- 
matted by the SYNADAF macro 
instruction. For an interpreta- 
tion of this information, see the 


publication Supervisor and Data 


Management Macro Instructions, 
Form C28-6647. After the trace- 


back is completed, control is 
returned to the call routine sta- 
tement designated in the ERR para- 
meter of a FORTRAN READ statement 
if that parameter was specified. 
(See “Use of ERR Parameter in READ 
Statement" for additional 
information. ) 


Explanation: FIOCS -- Either a 
data set is referred to in the 
load module but no DD statement is 
supplied for it, or a DD statement 
has an erroneous ddname. 


Explanation: FIOCS -- A data set 
reference number exceeds the limit 
specified for data set reference 
numbers when this operating system 
was generated. 


NAMEL-NAME LARGER THAN EIGHT 


CHARACTERS. NAME=X 
Explanation: NAMEL -- An input 


variable name exceeds eight 
characters. 


NAMEL-NAME NOT IN NAMELIST DIC- 
TIONARY. NAME=X 


Explanation: NAMEL -- An input 
Variable name is not in the NAME- 
LIST dictionary, Or an array is 
specified with an insufficient 
amount of data. 





pero 


THC224T 


IHC2251 


IHC2301 


THC 2311 


THC 2321 


IHC2331 


ITHC2341 


THC2351 
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NAMEL-END OF RECORD 
BEFORE EQUAL SIGN. 


ENCOUNTERED 
NAME=X 


-- Either an 
Or a subscript 


Explanation: NAMEL 
input variable name 


has no delimiter. 


NAMEL-SUBSCRIPT FOR NON- 
DIMENSIONED VARIABLE OR SUBSCRIPT 


OUT OF RANGE. NAME=X 
Explanation: NAMEL -- A subscript 


is encountered after an undimen- 
Sioned input name, or the sub- 
script is too big. 


CONVERT-ILLEGAL HEXADECIMAL 
CHARACTER X 


Explanation: FCVTH -- An illegal 
character encountered on input 
under Z format code. 


SOURCE ERROR AT ISN xxxx - EXECU- 
TION FAILED AT SUBROUTINE - name 
Explanation: IBERR -- During load 
module execution, a source state- 
ment error is encountered. The 
internal statement number for the 
source statement 1S xxxx; the rou- 
tine that contains the statement 
is specified by name. 


Explanation: DIOCS -- Direct- 
access. input/output statements are 
used for a sequential data set, or 
input/output statements for a 
sequential data set are used for a 
direct access data set. 


Explanation: DIOCS -- Relative 
position of a record is not a 
positive integer, or the relative 
position exceeds the number of 
records in the data set. 


Explanation: DIOCS -- The record 
length specified in the DEFINE 
FILE statement exceeds the physi- 
cal limitation of the volume 
assigned to the data set in the DD 
statement. 


Explanation: DIOCS -- The data 
set assigned to print execution 
error messages cannot be a direct 
access data set. 


Explanation: DIOCS -- A data set 
reference number assigned to a 
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THC2361 


THC2371 


THC241T 


THC242T 


THC2431 


THC244T 


| THC245I 
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direct access data set has been 
used for a sequential data set. 


Explanation: DIOCS -- A READ is 
executed for a: direct access data 
set that has not been created. 


IHC2461 


Explanation: DIOCS -- Length of a 
record did not correspond to 
length of record specified in 
DEFINE FILE statement. 


FIXPI INTEGER BASE=0, INTEGER 
EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (I*##J) in 
the subprogram IHCFIXPI(FIXPI#) 
where I and J represent integer 
variables or integer constants, I 
is equal to zero and J is less 
than or equal to zero. 


THC2471I 


FRXPI REAL*4 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (R**J) in 


the subprogram IHCFRXPI(FRXPI#), 
where R represents a real*¥4 vari- 
able or real*4 constant, and J 
represents an integer variable or 
integer constant, R is equal to 
zero and J is less than or equal 
to zero. 


| THC2511 


| IHC2521 
FDXPI REAL*8 BASE=0.0, INTEGER . 
EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (D**J) in 


the subprogram IHCFDXPI(FDXPI#), 
where D represents a real*8 vari- 
able or real*8 constant and J 
represents an integer variable or 
integer constant, D is equal to 
zero and J is less than or equal 
to zero. 


| THC2531 


FRXPR REAL*4 BASE=0.0, REAL*4, 
EXPONENT=X.X, LE 0 


Explanation: LIB -- For an 
exponentiation overation (R**S) in 


the subprogram IHCFRXPR(FRXPR#), 
where R and S represent real*4 
variables or real*4 constants, R 
is equal to zero and S is less 
than or equal to zero. 


THC2541 


FDXPD REAL*8 BASE=0.0, REAL*8 
EXPONENT=X.X, LE 0O 
| THC2551 
Explanation: LIB -- For an 
exponentiation operation (D**P) in 
the subprogram IHCFDXPD(FDXPD#), 


where D and P represent real*8 
variables or real*8 constants, D 
is equal to zero and P is less 
than or equal to zero. © 


FCXPI COMPLEX*8 BASE=0.0+0.0I, 
INTEGER EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (Z**J) in 
the subprogram IHCFCXPI(FCXPI#) , 
where Z represents a complex*8 
variable or complex*8 constant and 
J represents an integer variable 
or integer constant, Z is equal to 
zero and J is less than or equal 
to zero. 


FCDXI COMPLEX*16 BASE=0.0+0.0I, 
INTEGER EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (Z**J) in 
the subprogram IHCFCDXI(FCDXI#), 
where Z represents a complex*#16 
variable or complex*16 constant 
and J represents an integer vari- 
able or integer constant, Z is 
equal to zero and J is less than 
Or equal to zero. 


SORT NEGATIVE ARGUMENT=X 


Explanation: LIB -- In the sub- 
program IHCSSQRT(SQRT), the argu- 
ment is less than 0. 


EXP ARG=X.X, GT 174.673 


Explanation: LIB -- In the sub- 
program IHCSEXP(EXP), the argument 
is greater than 174.673. 


ALOG-ALOG10 ARG=X.X, LE ZERO 


Explanation: LIB -- In the sub- 
program IHCSLOG(ALOG and ALOG10), 
the argument is less than or equal 
to zero. Because this subprogram 
is called by an exponential sub- 
program, this message also indi- 
cates that an attempt has been 
made to raise a negative base to a 
real power. 


SIN-COS/ARG/=/X. X (HEX=X) 7, GE 
PI*2**18 


Explanation: LIB -- In the sub- 
program IHCSSCN(SIN and COS), the 
absolute value of an argument is 
greater than or equal to 2178em, 
(228em =.82354966406249996D+06) 


ATAN2 ARGUMENTS=0.0 


Explanation: LIB -- In the sub- 
program IHCSATN2, when entry name 


Se 
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ITHC2571 


THC258T1 


THC2591 


| THC2611 


| IHC2621 


| ITHC263I 


THC2641 


program IHCSASCN 


ATAN2 is used, both arguments are | IHC265I 


equal to zero. 
SINH-~COSH/ARG/=/X.X/, GE 174.673 


Explanation: LIB -- In the sub- 
program IHCSSCNH(SINH or COSH), 

the argument is greater than or 

equal to 174.673. 


| THCc2661 


ARSIN-ARCOS/ARG/=/X.X/ GT 1 

LIB -- In the sub- 
(ARCSIN or 
ARCOS), the absolute value of the 
argument is greater than 1. 


Explanation: 


| rHc2671 


TAN-COTAN/ARG/=/X.X (HEX=X)/, GE 
PI*2**18 


Explanation: LIB -- In the sub- 
program IHCSTNCT (TAN or COTAN), 
the absolute value of the argument 
is greater than or equal to 218em, 
(218 et=, 82354966406249996D+06) 


THC2681 





TAN-COTAN/ARG/=/X.X (HEX=X) /, 
APPROACHES SINGULARITY 


Explanation: LIB -- In the sub- 
program IHCSTNCT (TAN or COTAN), 
the argument value is too close to 
one of the singularities. 

(45 ,437,... for the tangent 


| IHC2691 


or tt,t27,-2-- for the cotangent) 
DSORT NEGATIVE ARGUMENT=X. X 


Explanation: LIB -- In the sub- 
program IHCLSORT(DSQORT), the argu- 
ment is less than 0. 

| IHC2711 
DEXP ARG=X.X, GT 174.673 


Explanation: LIB -- In the sub- 
program IHCLEXP(DEXP), the argu- 


ment 1S greater than 174.673. 
DLOG-DLOG10 ARG=X.X, LE ZERO 

| IHC2721 
Explanation: LIB -- In the sub- 


program IHCLLOG(DLCG and DLOG10), 
the argument is less than or equal 
to zero. Because the subprogram 
is called by an exponential sub- 
program, this message also indi- 
cates that an attenpt has been 
made to raise a negative base to a 
real power. 


THC2731 
DSIN-DCOS/ARG/=/X.X (HEX=X)/, GE 
PI *2*¥*50 
Explanation: LIB -- In the sub- 
program IHCLSCN(DSIN and DCOS), 
the absolute value of the argument 
is greater than or equal to 25° fm. THC274I 


(259 WF =. 35371188737802239D+16) 


DATAN2 ARGUMENTS=0.0 


Explanation: LIB -- In the sub- 
program IHCLATN2, when entry name 
DATAN2 is used, both arguments are 
equal to zero. 


DSINH-DCOSH/ARG/=/X.X/, GE 174.673 


Explanation: LIB -- {in the sub- 
program IHCLSCNH (DSINH or DCOSH), 
the absolute value of the argument 
is greater than or equal to 
174.673. 


DARSIN-DARCOS/ARG/=/X.X/, GT 1 


Explanation: LIB -- in the sub- 
program IHCLASCN (DARSIN or 
DARCOS), the absolute value 


argument is greater than 1. 


of the 


DTAN-DCOTAN/ARG/=/X. X (HEX=X)/ GE 
PI * (2**50) 


Explanation: LIB -- In the sub- 
program IHCLTNCT (DTAN or DCOTAN), 
the absolute value of the argument 
is greater than or equal to 25° mf, 
(259e =, 35371188737802239D+16) 


DTAN-DCOTAN/ARG/=/X. X(HEX=X)/, 
APPROACHES SINGULARITY 


Explanation: LIB -- In the sub- 
program IHCLTNCT (DTAN or DCOTAN), 
the argument value is too close to 
one of the singularities 

(+ 5 rt3T,... for the tangent 


or t1,+27,...f0r the cotangent). 


CEXP REAL ARG=X.X(HEX=X), GT 
174.673 
Explanation: LIB -- In the sub- 


program IHCCSEXP (CEXP), the value 
of the real part of the argument 
is greater than 174.673. 


CEXP IMAG ARG=X(HEX=X), ABS VALUE 
GE PI+2**18 


Explanation: LIB -- In the sub- 
program IHCCSEXP (CEXP), the abso- 
lute value of the imaginary part 
of the argument is greater than or 
equal to 218em, 

(228 en=.82354966406249996D+06) 


CLOG ARGUMENT=0.0+0. 01 


Explanation: LIB -- In the sub- 
program IHCCSLOG (CLOG), the real 
and imaginary parts of the argu- 
ment are equal to zero. 


CSIN-CCOS/REAL ARG/=/X.X (HEX=X)/, 
GE PI*2+#*18 
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| IHC2751 


| IHC2811 


| ITHC2821 


ITHC28 31 


| IHC284UT 


IHC2851 


THC 2901 


130 


Explanation: LIB -- In the sub- 
program IHCCSSCN (CSIN or CCOS), 
the absolute value of the real 
part of the argument is greater 
than or equal to 228 ff, 

(223 eT=, 82354966406249996D+06) 


CSIN-CCOS/IMAG ARG/=/X.X (HEX=X)/ 
GT 174.673 


Explanation: LIB -- In the sub- 
program IHCCSSCN (CSIN or CCOS), 
the absolute value of the 
imaginary part of the argument is 
greater than 174.673. 


CDEXP-REAL ARG=X.X(HEX=X) GT 
174.673 


Explanation: LIB -- In the sub- 
program IHCCLEXP (CDEXP), the 
value of the real part of the 
argument is greater than 174.673. 


CDEXP IMAG ARG=X.X(HEX=X) ABS 
VALUE GE PI*¥2**50 


Explanation: LIB -- In the sub- 
program IHCCLEXP (CDEXP), the 
absolute value of the imaginary 
part of the argument is greater 
than or equal to 25°%en, 

(25°9etT=, 35371188737802239D+16) 


CDLOG ARGUMENT=0.0+0.0I 


Explanation: LIB -- In the sub- 
program IHCCLLOG (CDLOG), the real 
and imaginary parts of the argu- 
ment are equal to zero. 


CDSIN-CDCOS/REAL ARG/=/X.X (HEX=X) 
4, GE PI*2**50 


Explanation: LIB -- In the sub- 
program IHCCLSCN (CDSIN or CDCOS), 
the absolute value of the real 
part of the argument is greater 
than or equal to 25°%en, 

(259 eT =, 35371188737802239D+16) 


CDSIN-CDCOS/IMAG ARG/=/X.X (HEX=X) 
4, GT 174.673 


Explanation: LIB -- In the sub- 
program IHCCLSCN (CDSIN or CDCOS), 
the absolute value of the 
imaginary part of the argument is 
greater than 174.673. 


GAMMA ARG=X.X(HEX=X), LE 2**-252 
OR GE 57.5744 


Explanation: LIB -- In the sub- 
program IHCSGAMA (GAMMA), the 
value of the argument is outside 
the valid range. (Valid range: 
27 252€x%<57.5744) 


IHC2911I ALGAMA ARG=X.X(HEX=X), LE 0. OR 


GE 4.2937410**73 


Explanation: LIB -- In the sub- 
program IHCSGAMA (ALGAMA), the 
value of the argument is outside 
the valid range. (Valid range: 
0<x<4. 2937x1075) 


IHC300I DGAMMA ARG=X.X(HEX=X), LE 2*#*-252 
OR GE 57.5744 
Explanation: LIB -- In the sub- 
program IHCLGAMA (DGAMMA), the 
value of the argument is outside 
the valid*range. (Valid range: 
27-252<x<57.5744) 

IHC301I DLGAMA ARG=X.X(HEX=X), LE O. OR 


GE 4.2937410**73 


Explanation: LIB -- In the sub- 
program IHCLGAMA (DLGAMA), the 
value of the argument is outside 
the valid range. (Valid range: 
0<x<4. 2937x1073) 


Extended Error Messages for Execution 
Errors 


When the extended error message facility 
is specified by use of the OPTERR=INCLUDE 
option in the FORTLIB macro-instruction at 
System generation time, the message text 
that follows is printed on the object error 
unit. Explanations of individual error 
Situations are the same as those described 
previously for "Execution Error Messages." 
Variable information in the message is 
shown as X, and in the corrective action 
descriptions, * denotes the largest poss- 
ible number that can be represented in 
floating point. 


Supplemental data is identified. The 
user should refer to Tables 17, 18, and 19 
for a listing of the data available to the 
user-exit routine. Provided here is a sum- 
mary Of data available in the message which 
is also passed to the user-exit routine, as 
well as any additional information concern- 
ing the data in error that appears in the 
message. The standard action to correct 
the error is also described. 


ERROR DESCRIPTION 

207 IHC207I IBCOM — PROGRAM INTERRUPT- 
OVERFLOW OLD PSW IS X REGISTER 
CONTAINED X 


Supplemental Data: The following 
point number before alteration. 





208 


209 


210 


211 


212 


Standard Corrective Action: Con- 

tinue execution at point of inter- 

rupt with result register set to 

the largest possible floating- 

point number that can be repre- 

sented in short precision (1663* 213 
(1-16-6)) or in long precision 
(1663*(1-16-1%)). 


IHC208I IBCOM - PROGRAM INTERRUPT- 
UNDERFLOW OLD PSW IS X REGISTER 
CONTAINED X 


Supplemental Data: The floating 
point number before alteration. 214 


Standard Corrective Action: Con- 
tinue execution at point of inter- 
rupt with result register set toa 
true zero of correct precision. 


IHC209I IBCOM - PROGRAM INTERRUPT- 
DIVIDE CHECK OLD FSW IS xX 
215 


Supplemental Data: None. 


Standard Corrective Action: Leave 
register unmodified. 


IHC210I IBCOM - PROGRAM INTERRUPT 
- ALIGNMENT OLD PSW IS X 


Supplemental Data: None. 


Standard Corrective Action: None. 

IHC210I IBCOM -—- PROGRAM INTERRUPT 
P 

( a ) OLD PSW IS (contents of old 


PSW) 


Supplemental Data: None. 216 


Standard Corrective Action: Con- 
tinue execution at point of 
interrupt. 


IHC211I IBCOM - ILLEGAL COMPILED 
FORMAT CHARACTER SPECIFIED 


IHC211I IBCOM - ILLEGAL VARIABLE 
FORMAT CHARACTER SPECIFIED X 217 


Supplemental Data: Character in 
error. 


Standard Corrective Action: For- 
mat field treated as an end of 
format. 


[THC212I IBCOM - FORMATTED I/O, END 
OF RECORD ON UNIT X 
218 


Supplemental Data: Unit number. 


Standard Corrective Action: For a 
read, ignore remainder of I/O 
list; for a write, Start new 
record with no control character. 


THC213I IBCOM - UNFORMATTED REAL, 
END OF RECORD ON UNIT X 


Supplemental Data: Unit number. 


Standard Corrective Action: 
Ignore remainder of I/O list. 


ITHC214T FIOCS - UNFORMATTED I/O, 
RECORD FORMAT SPECIFIED AS F OR U 
ON UNIT X 


Supplemental Data: Unit number. 


Standard Corrective Action: For 
read, ignore I/O request; for 
write, change record form to V. 


IHC215I CONVERT - ILLEGAL DECIMAL 
CHARACTER X 


Supplemental Data: Display the 


record in which character 
appeared. 


Standard Corrective Action: O 
replaces the character 
encountered. 


Note: If the standard or correc- 
tive user action results ina null 
format, no output will result. If 
the FORMAT statement is terminated 
in such a way that no conversion 
type is called for, an alphanumer- 
ic literal may be repeated for 
each list item. 


IHC2161 SLITE - SLITET X IS AN 
ILLEGAL VALUE 


supplemental Data: The sense 
light value supplied. 


Standard Corrective Action: For 


SLITE, no action; for SLITET, 
return OFF indication, i1.e€., J=2. 


IHC2172 FIOCS - END OF DATA SET ON 
UNIT X 


Supplemental Data: Unit number. 


Standard Corrective Action: kead 
next file, i.e., increment 
sequence number by 1. 

Note: END=parameter is honored. 
THC2181I - FIOCS - I/O FRROR (text 
provided by data management) 
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222 


223 


224 


132 


Supplemental Data: Unit number. 


Standard Corrective Action: Con- 
tinue execution and ignore I/0 225 
request. 


Note: ERR=parameter is honored. 


IHC219I FIOCS - MISSING DD CARD 
FOR (DDname) 


IYHC219I DIOCS - MISSING DD CARD 
FOR UNIT X 


Supplemental Data: Unit number. 
7 230 


Standard Corrective Action: Con- 
tinue execution and ignore I/0 
request. 


IHC220I FIOCS - UNIT NUMBER OUT OF 
RANGE. UNIT=X 


IHC220I DIOCS - UNIT NUMBER OUT OF 231 
RANGE. UNIT=X 


Supplemental Data: Unit number. 


Standard Corrective Action: Con- 
tinue execution and ignore I/O 
request. 


THC221I NAMEL -— NAME LARGER THAN 
EIGHT CHARACTERS. NAME=X 


Supplemental Data: Name specified 
(first eight characters). 


Standard Corrective Action: 
Ignore remainder of namelist 
request. 232 


IHC222I NAMEL — NAME NOT IN NAME- 
LIST DICTIONARY. NAME=X 


Supplemental Data: Name 
specified. 


Standard Corrective Action: 
Ignore remainder of namelist 233 
request. 


THC2231I NAMEL - END OF RECORD 
ENCOUNTERED BEFORE EQUAL SIGN. 
NAME=X : 


Supplemental Data: Name of item. 


Standard Corrective Action: 
Ignore remainder of the namelist 234 
request. 


ITHC224I NAMEL - SUBSCRIPT FOR NON- 


DIMENSIONED VARIABLE OR SUBSCRIPT 
OUT OF RANGE. NAME=X 


Supplemental Data: Name of item. 


Standard Corrective Action: 
Ignore remainder of the namelist 
request. 


THC225I CONVERT - ILLEGAL HEXA- 
DECIMAL CHARACTER X 


Supplemental Data: Display the 
record in which the character 


appeared. 


Standard Corrective Action: 0O 
replaces the encountered 
character. 


ITHC230 - SOURCE ERROR AT ISN X - 
EXECUTION FAILED AT SUBROUTINE X 


Supplemental Data: None. 


Standard Corrective Action: Ter- 
Minate execution. 


IHC2311I IBCOM - DIRECT ACCESS 
STATEMENT USED WITHOUT DEFINE FILE 
ON UNIT X 


IHC231I DIOCS - DIRECT ACCESS 
STATEMENT USED FOR SEQUENTIAL DATA 
SET X 


THC2311I FIOCS - SEQUENTIAL I/O 
STATEMENTS USED FOR DIRECT ACCESS 
DATA SET X 


Supplemental Data: Unit number xX 


Standard Corrective Action: 
Ignore I/O request. 


IHC232I DIOCS - RECORD NUMBER X 
OUT OF RANGE ON UNIT X 


Supplemental Data: Unit number 
and record number. 


Standard Corrective Action: 
Ignore I/O request. 


IHC233I DIOCS - RECORD LENGTH 
GREATER THAN 32K-1 SPECIFIED FOR 
UNIT X 


Supplemental Data: Unit number 
specified. 


Standard Corrective Action: Set 
record length to 32,000. 


IHC234I DIOCS - ATTEMPT TO DEFINE 
THE OBJECT ERROR UNIT AS DIRECT 
ACCESS DATA SET. UNIT=X 


Supplemental Data: Unit number. 


Standard Corrective Action: 
Ignore define file entry. 





235 


236 


237 


241 


242 


243 


244 


245 


ITHC235I DIOCS - DEFINE A DATA SET 

WHICH HAS BEEN USED SEQUENTIALLY 

AS A DIRECT ACCESS DATA SET. 

UNIT=X 246 


Supplemental Data: Unit number. 


Standard Corrective Action: 
Ignore define file entry. 


IHC236I DIOCS - READ REQUEST FOR 
AN UNCREATED DATA SET ON UNIT X 


Supplemental Data: Unit number. 
247 


Standard Corrective Action: 
Ignore I/O request. 


THC2371I DIOCS - INCORRECT RECORD 
LENGTH SPECIFIED FOR UNIT X 


Supplemental Data: Unit for which 
error occurred. 
251 
Standard Correct Action: Ignore 
the I/O request. 


IHC241I FIXPI INTEGER BASE=0, 
INTEGER EXPONENT=X, LE 0 


Supplemental Data: Exponent 
specified. 252 


Standard Corrective Action: 
Result=0. 


THC242I FRXPI REAL*4 BASE=0.0, 
INTEGER EXPONENT=X, LE 0 


Supplemental Data: Exponent 253 
supplied. 


Standard Corrective Action: 
Result=0. 


ITHC243I FDXPI REAL*8 BASE=0.0, 
INTEGER EXPONENT=X, LE 0O 


Supplemental Data: Exponent 
specified. 254 


Standard Corrective Action: 
Result=0. 


ITHC244T FRXPR REAL*4 BASE=0.0, 
REAL *4 EXPONENT=X.X, LE 0 


Supplemental Data: Exponent 
specified. 255 


Standard Corrective Action: 
Result=0. 


THC245I FDXPD REAL*8 BASE=0.0, 
REAL*8 EXPONENT=X.X, LE 0 


Supplemental Data: Exponent 256 
specified. 


Standard Corrective Action: 
Result=0. 


IHC2461I FCXPI COMPLEX*8 BASE=0.0+ 
0.0L, INTEGER EXPONENT=X, LE 0 


Supplemental Data: Exponent 
specified. 


Standard Corrective Action: 
Result=0. 


IdC2471I FCDXI COMPLEX*16 BASE=0.0+ 
0.0I, INTEGER EXPCNENT=X, LE 0 


supplemental Data: Fxponent 
specified. 


Standard Corrective Action: 
Result=0. 


IHC2511I SQRT NEGATIVE AKkGUMENT=xX 


Supplemental Data: Argument 
specified. 


Standard Corrective Acticn: 
Result=]|xX|17 2. 


ITHC252T EXP ARG=X.X, GT 174.673 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=*. 


IHC253I ALOG-ALOG10 ARG=X.X,LE 
ZERO 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: if 
X=0, result=-*; if X<0, result=log 
|X| or login |X|- 


THC254I SIN-COS/ARG/=/X.X (HEX=X) / 
, GE PI*2**18 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=J2/2 


IHC255I ATAN2 ARGUMENTS=0. 0 


Supplemental Data: Arguments 
specified. 


Standard Corrective Action: 
Result=0. 


THC2561 SINH-COSH/ARG/=/K.X/, GE 
174.673 
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257 


258 


259 


261 


262 


263 


264 
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Supplemental Data: Argument 265 
specified. 


Standard Corrective Action: 
Result=*. 


IHC257I ARSIN-ARCOS/ARG/=/X.X/ GT 
1 


266 
Supplemental Data: Argument 
specified. 
Standard Corrective Action: 
Result=0. 
IHC258I TAN-COCTAN/ARG/=/X.X/ (HEX= 
X)/, GE PI*2*#*18 
267 
Supplemental Data: Argument 
specified. 
Standard Corrective Action: 
Result=1. 
IHC259I TAN-COTAN/ARG/=/X.X/ (HEX= 
X)/, APPROACHES SINGULARITY 
268 
Supplemental Data: Argument 
specified 
Standard Corrective Action: 
Result=*. 
IHC261I DSORT NEGATIVE 
ARGUMENT=X. X 
269 
Supplemental Data: Argument 
specified 
Standard Corrective Action: 
Result=|xX|1“2 
IHC262I DEXP ARG=X.X, GT 174.673 
Supplemental Data: Argument 271 
specified. 
Standard Corrective Action: 
Result=*. 
ITHC263I DLOG-DLOG10 ARG=X.X, LE 
ZERO 
Supplemental Data: Argument 
specified. 
272 
Standard Corrective Action: if 
X=0, result=-*#; if xX<0, result=log 
|X| or logio]X|.- 
IHC264I DSIN-DCOS/ARG/=/X.X (HEX= 
X)/, GE PI*2**50 
Supplemental Data: Argument 
specified. | 273 


Standard Corrective Action: 
Result=0. JV2/2 


THC265I DATAN2 ARGUMENTS=0.0 


Supplemental Data: Arguments 
specified. 


Standard Corrective Action: 
Result=0. 


IHC266I DSINH-DCOSH/ARG/=/X.X/, G& 
174.673 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=*. 


IHC2671I DARSIN-DARCOS/ARG/=/K.X/, 
GT 1 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=0. 


IHC2681I DTAN-DCOTAN/ARG/=/X.X 
(HEX=X)/ GE PI*(2**50) 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=1. 


IHC269I DTAN-DCOTAN/ARG/=/X.X 
(HEX=X)/7, APPROACHES SINGULARITY 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=*. 


IHC271I CEXP REAL ARG=X.X (HEX=X), 
GT 174.673 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=* (COS X + iSIN X) where X 
is the imaginary portion of the 
argument. 


IHC272I CEXP IMAG ARG=X (HEX=X), 
ABS VALUE GE PI*2**18 


Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=0+0i. 


IHC273I CLOG ARGUMENT=0.0+0.0I 


Supplemental Data: Argument 
specified. 





274 


275 


281 


282 


283 


284 


Standard Corrective Action: 
Result=-*+0i. 


IHC274I CSIN-CCOS/REAL ARG/=/X. X 
(HEX=X)/, GE PI#2*#*18 
285 


Supplemental Data: Argument 


ake ES comme wenn ene MEN wecnietie ces aes Cen iL es 


specified. 


Standard Corrective Action: 
Result=0+0i. 


ITHC275I CSIN-CCOS/IMAG ARG/=/X.X 
(HEX=X)/7, GT 174.673 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: If 


imaginary part >0, (X is real por- 
tion of argument): 


For sine, result= 
* (SIN X + iCcOS X). 
2 


For cosine, result= 
* (COS X - iSIN X). 
2 


If imaginary part <0, (X is real 
portion of argument): 


For sine, result= 
* (SIN X - iCOS X). 290 
2 


For cosine, result= 
* (COS X + iSIN X). 
2 


IHC28I CDEXP REAL ARG=X. X (HEX=X) 
GT 174.673 291 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: 
the imaginary portion of the 
argument. 
300 
THC2821I CDEXP IMAG ARG=X. X(HEX=X) 
ABS VALUE GE PI*¥2**50 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: 
Result=0+0i. 
301 
ITHC283I CDLOG ARGUMENT=0.D0+0.DO0OI 


Supplemental Data: Argument 
specified. 

Standard Corrective Action: 
Result=-*+0i. 


IHC284I CDSIN-CDCOS/REAL ARG/=/X. 
X(HEX=X)/, GE PI*2*#*50 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: 


Result=0+0i 


THC285I CDSIN-CDCOS/IMAG ARG/=/X. 
X(HEX=X)/, GT 174.673 


Supplemental Data: Argument 
specified. 

Standard Corrective Action: If 
imaginary part >0, (X is real por- 
tion of argument): 


For sine, result= 
* (SIN X + iCOS X). 
2 


For cosine, result= 
* (COS X - iSIN X). 
2 


If imaginary part <0, (X is real 
portion of argument): 


For sine, result= 
* (SIN X - iCcOS X) 
2 


For cosine, result= 
* (COS X + iSIN X) 
2 


IHC290I GAMMA ARG=X. X(HEX=X), LE2* 
*-252 OR GE 57.5744 


Supplemental Data: Argument 
specified. 
Standard Corrective Action: 


Result=*. 


IHC291I ALGAMA ARG=X. X (HEX=X), LE 
0 OR GE 4, 29374*10**73 


Supplemental Data: Argument 
specified 
Standard Corrective Action: 


Result=*. 


IHC300I DGAMMA ARG=X. X(HEX=X), LE 
2**-252 OR GE 57.5744 


Supplemental Data: Argument 
specified. 
Standard _ Corrective Action: 
Result=*. 


IHC301I DLGAMA ARG=X. xX (HEX=X), LE 
0. OR GE 4. 2937*10**73 


Supplemental Data: Argument 
specified. 

Standard Corrective Action: 
Result=*,. 


*is used to denote the largest number 
representable in floating point. 
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SUMMARY OF ERRORS FOR THIS JOB 


217 
211 


Figure 76. Summary of Error and Traceback 


TRACEBACK FOLLOWS- ROUTINE ISN 
IBCOM 
MAIN 


ENTRY POINT- 50008020 





Figure 77. Example of Traceback Map 


Even though message printing may be sup- 
pressed when the extended error message 
facility is available, a summary of errors 
is printed when the job is completed. Its 
format is shown in Figure 76 . The format 
of a Traceback Map is shown in Figure 77. 


The headings in the Traceback Map may be 
described as follows: : 
ROUTINE The name of the routine entered, 
which was called by the next rou- 
tine in the list. 


ISN When the compiler's ID option sup- 
plies an Internal Statement Number 
(ISN), the ISN entry is a symbolic 
reference to the point from which 
the routine was called. 


REG. 14 This is the absolute location 
reference to the point from which 
ROUTINE was called. By using the 
ENTRY POINT location, a relative 
location can be computed. 


REG. 15 This is the address of the entry 
point in ROUTINE. 

REG. 0 This is the result register used 

by function subprograms. 

REG. 1 This is the address of the argu- 

ment list passed to ROUTINE. 


If the user specifies that an 
installation-supplied routine is to be used 
for corrective action, this line is added 
to the message: 


136. 


REG. 
000083B4 
00004918 


ERROR NUMBER NUMBER OR ERRORS 
219 1 


] 
57 


14 REG. 15 REG. 0 


000089B8 00000005 


REG. 1 
OO008T1A6 


50008020 00000030 OO003FF04 


USER FIXUP TAKEN, EXECUTION CONTINUING 


For a standard corrective action, the 
message addition reads: 


STANDARD FIXUP TAKEN, EXECUTION 
CONTINUING 


If the extended error message facility 
detects an error condition, an information- 
al message iS printed and the job may be 
terminated. The following text contains a 
description of such messages. 

IHC900I EXECUTION TERMINATING DUE TO ERROR 
COUNT FOR ERROR NUMBER X 


Explanation: This error has 
occurred frequently enough to 
reach the count specified as the 
number at which execution should 
be terminated. 


System Action: The job is 


terminated. 
THCI01I EXECUTION TERMINATING DUE TO 
SECONDARY ENTRY TO ERROR MONITOR 
FOR ERROR X WHILE PROCESSING ERROR 
Xx 


Explanation: In a user's correc- 
tive action routine, an error has 
occurred that has called the error 
monitor before it has returned 
from processing a diagnosed error. — 
System Action: The job is 
terminated. | 





Note: If Traceback follows this 

message, it may be unreliable. 
IHCIO2ZT ERROR NUMBER X OUT OF RANGE OF 
ERROR TABLE 


Explanation: A request has been 
made to reference a non-existent 
Option Table entry. 


System Action: The request is 
ignored and execution continues. 


ATTEMPT TO CHANGE UNMODIFIABLE 
TABLE ENTRY, NUMBER=X 


THC9031 


Explanation: The Option Table 
specifies that no cnanges may be 
made in this entry, but a change 
request has been made by use of 
CALL ERRSET or CALL ERRSTR. 


System Action: The request is 

ignored and execution continues. 
IHC9O4T ATTEMPT TO DO I/O DURING FIXUP 
ROUTINE FOR AN I/O TYPE ERROR 


Explanation: When attempting to 
correct an input/output error, the 
user may not issue a READ, WRITE, 
RBACKSPACE, ENDFILE, REWIND, PDUMP, 
DEBUG, Or ERRTRA. 


System Action: The job is 


terminated. 


Operator Messages 


Operator messages for STCP and PAUSE are 
generated during load module execution. 


The message for a PAUSE can be one of 
the forms: 


VY 1HCO01A) PUSS "message 


PAUSE n 
| 
PAUSE 0 


is the identification 
number 


where: yy 


Is 


is the unsigned 1-5 digit 
integer constant speci- 
fied in a PAUSE source 
statement 


*message* is the literal constant 
specified in a PAUSE 
source statement 


0 is printed out when a 
PAUSE 


statement is executed 


Explanation: The programmer should give 
instructions that indicate the action to be 
taken by tne operator when the PAUSE is 
encountered. 


User Response: To resume execution, the 
Operator presses the REQUEST key. When the 
PROCEED light comes on, the operator types 


REPLY yy,'Z' 


where yy is the identification number and 2 
is any letter or number. To resume progran 
execution, the operator must press the 
alternate coding key and a numeric 5. 


The message for a STOP statement can be 
one of the forms: 


aes fo a 
STOP 0 
where: n is the unsigned 1-5 digit 
integer constant specified in 
a STOP source statement. 

This value is placed in 
register 15 when the STOP 
statement is executed. 


O is printed when a STOP 


statement 1s executed. 


User Response: None 
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APPENDIX E: EXTENDED USA CARRIAGE CONTROL CHARACTERS 


\ Interpretation 





Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 
Skip 


EINWPOCBYAU EWP +1) 


to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 
to 


} Space one line before printing . 

* Space two lines before printing 
Space three lines before printing 
Suppress space before printing 


first line of a new page 


channel 
channel 
channel 
channel 
channel 
channel 
channel 
channel 
channel 
channel 
channel 


Select punch pocket 1 
Select punch pocket 2 


* These carriage control characters are 
identical to the FORTRAN carriage control 
characters specified in the FORTRAN IV 
Language publication. 
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A, device class 17, 23, 25, 32, 49 
ABEND dump 86 
ABSTR subparameter 76 
Accessing unused space 77 
Account number 15-16 
Accounting information 
in the EXEC statement 20-21 
in the JOB statement 15-16 
ACCT parameter 20 
ACCT. procstep parameter 20 
Additional input to the linkage editor 38 
Addressing exception 124 
AFF subparameter 76 
Affinity for devices 76 
ALIAS linkage editor control statement 39 
ALX Subparameter 48 
Argument list 108,112 
Assembler language subprograms 
addresses of arguments 112-113 
argument list 108 
calling sequence 108 
COMMON area, use of 112 
linkage conventions 110-111 
register use 109 
save area 108,109 
subroutine references 108 
Assigning job priority 16-17 
Assigning names to temporary data sets 
27, 46 
Asterisk parameter (*) 24 
Automatic call library 36,37,38 
Average record length subparameter 48,77 
25, 32 
43,56 
29-30, 35-36 


Be device class 
BACKSPACE statement 
Batched compilation 
BCD characters 35 
BCD compiler option 34 
BLKSIZE subparameter 51-56 
Block control word 54 
Blocked records 51-56 
BUFNO subparameter 51 

Byte 64 


Card input and output 25 
Carriage control characters 
Catalog 11 
Cataloged data sets i11 
Cataloged procedure 
IBM supplied 9-10, 29-31, 58-61 
invocation of 18,19 
overriding 10, 61-63 
steps 10 
user-written 60 
Cataloged procedure name parameter 18 
CATLG subparameter 28 
Chained scheduling 51 
CHANGE linkage editor control statement 39 
Channel separation 75 
Column binary mode 25 
Comments in job control statements 13 
COMMON area 68,112 


25,51,138 


INDEX 


Compile and link edit cataloged procedure 
(FORTHCL) 30,58, 60 
Compile cataloged procedure (FORTHC) 
29-30, 58, 59 
Compile, link edit, and execute cataloged 
procedure (FORTHCLG) 30-31,58,59,61 
Compiler 
cross reference listing 
DCB assumptions 32,33 
ddnames 31-33 
device classes 32 
error/warning messages 
informative messages 
invocation of 29,111 
multiple or batched compilation 
29-30, 35-36 
name 31 
object module deck structure 83 
options 33-35 
restrictions 75 
source listings 35,78,79 
storage map 35, 80, 82 
Concatenating data sets 
with other data sets 
with the system library 
COND parameter 
in the EXEC statement 20 
in the JOB statement 16 
COND. procstep parameter 20 
Condition code 
in the EXEC statement 20 
in the JOB statement 16 
meaning of 16 
Constants 64 
CONTIG subparameter 48 
Continuing control statements 13 
Control words in variable-length reeort. 
53,54,55 
Control statement messages 17 
Conversion for tape data sets 9%! 
Creating data sets 44-57 
Cross-reference list 
compiler 35,78,79 
linkage editor 40, 84,85 
CYL subparameter 48,76,77 
Cylinders, direct access device Ui,!. 


35, 78,79 


83-84,114-124 
83,114 


22-43 
22-24 


Data exception 125 
Data in input stream 24 
DATA parameter 24 
Data set reference number 
Data sets 
cataloged 10 
labels 10 
organization 
direct access 11 
partitioned 11 
sequential 11 
DCB parameter 25,50 
DCB assumptions 
for compiler data sets_ 
for load module execution 


41,42 


32-33 
52,57 
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DD statement 
asterisk parameter 24 
DATA parameter 24 
DCB parameter 25, 50 
ddname 22-24, 50 
DDNAME parameter 46 
Gefinition of 21,44 
DISP parameter 27-28,49 
DSNAME parameter 26-27, 46 
DUMMY parameter 46 
LABEL parameter 42-43, 49 
SEP parameter 76 
SPACE parameter 48-49, 76, 77 
SPLIT parameter 76-77 
SUBALLOC parameter 77 
SYSOUT parameter 25,32,49 
UNIT parameter 24-25, 46, 47 
VOLUME parameter 47 
ddname 22-24, 50 
DDNAME parameter 46 
DECK compiler option 35, 80 
Deck structure, object module 
Definition of 
DD statement 21,44 
EXEC statement 17,18 
JOB statement 14-15 
DELETE subparameter 28 
Delimiter statement 28 
DEN subparameter 50 
Density, tape 50 
Diagnostic message 83, 84,114-124 
Direct access data sets 
description 10 
record format 56 
Space specification 48-49 
use in programming 72-73 
DISP parameter 27-28, 49 
Disposition of a data set 
Double-word 64 
DSNAME parameter 26-27, 46 
DUMMY parameter 46 
DUMP subroutine 70-71 


80,82 


EBCDIC compiler option 34 
EBCDIC mode 25 
EDIT compiler option 35, 78-80 
END card for object modules 83 
END FILE statement 41-42 
ENTRY linkage editor control statement 39 
EQUIVALENCE statement 68 
ERR parameter, use of 71 
ERRMON 91 
Error message data set 43 
Error/warning messages 
generated by the compiler 83-84 
generated for load modules’ 86 
ERRSAV 88 


ERRSET 89 
ERRSTR- 88 | 
ERRTRA 91 


ESD card 82 


Examples of FORTRAN jobs 102-107 
EXEC statement 

ACCT parameter 20-21 

ACCT. procstep parameter 20-21 


COND parameter 20 
COND. procstep parameter 20 
definition of 17-18 
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name 17 | 
PARM parameter 20,40,62 
PARM. procstep parameter 
‘PGM parameter 19 
PROC parameter 18 
REGION parameter 21 , 
REGION. procstep parameter 21 
specifying a cataloged procedure 18,19 
specifying a program ina library 19 
TIME parameter 21 
TIME.procstep parameter 21 
Exceptions that cause interrupts 
86,114, 124-126 
Execution, load module 
DCB assumptions 42 
ddnames 40-41 
device classes 43 
error message data set 42 
errors &5-86,126-130 
program name 40 
Exit routine, user-supplied 
EXPDT subparameter 49 
Expiration date for data sets 49 
Exponent-overflow 86,114,125 
Exponent-underflow 86,114,125 
Extended Error Message facility 87 
External references 36,37 


20,40,62 — 


91-92 


Fields in job control statements 

comments 13 

name field 12 

Operand field 13 

Operation field 12-13 
Fixed-length records 52,53 
Fixed-point-divide 86,114,125 
Floating-point-divide 86,114,126 
FORTHC 

description of 58 

use OF 29-30,56 
FORTHCL 

description of 58 

use of 30, 58,59 
FORTHCLG 

description of 60 


use of 30-31,58,59 
FORTHLG 

description of 60 

use of 30,58,59 


FORTRAN library 75 
FORTRAN processing 9,29-43 
FORTRAN records 
for direct access data sets 56 
for sequential data sets 51-55 
FORTRAN sequence number 41,42 


ID compiler option 35 
INCLUDE linkage editor control statement 
38 
Informative message, compiler 83,114 
Initializing a direct access data set 
72-75 
INSERT linkage editor control statement 39 
Integer constants and variables 64 
Intermediate storage device 25,32,49 
Interrupt messages 86,124-125 
Invocation of the FORTRAN compiler 
I/O devices . 
address 24,46 


29,111 


24, 46-47 
24, 46-47 


name 
number of 


Job 9 

Job control statements 
comments 13 
continuing 13 
DD statement 21-28, 43-54 
delimiter statement 28 
EXEC statement 17-21 
Job statement 14-17 
notiation for defining 

Job management 12 

JOB statement 
account number parameter 15-16 
accounting information parameter 
COND parameter 17 
definition of 14-15 
MSGCLASS parameter 17 
MSGLEVEL parameter 16 
name 15 
programmer's name parameter 16 
PRTY parameter 17 
REGION parameter i17 

Job step 9 

JOBLIB DD statement 22,23, 28 

Job name 15 


12-28 


13-14 


15-16 


KEEP subparameter 28 


Keyword parameters and subparameters 19, 20 


Label map 35,80, 82 
LABEL parameter 42-43,49 


Labels, data set 11,26,42-43,49 
Length 

buffer 49 

Of FORTRAN records 51-56 

of logical records 51-56 


LET linkage editor option 40 
Library 
automatic call 
FORTRAN 75 
private 18 
system 17,18 
LIBRARY linkage editor control statement 
38-39 
LINECNT compile option 34 
Link edit and execute cataloged procedure 
(FORTHLG) 30-31,58,59 
Linkage conventions 109-111 
Linkage editor 
additional input 38 
automatic call library 36,37,38 
control statements 38-39 
cross reference list 40,84,85 
ddnames used with 37-38 
device classes 37-38 
module map 40,84 
name 36 
options 40 
primary input 36 
priority 39 
secondary input 36 
LIST compiler option 34,79-82 
LIST linkage editor option 40 
LOAD compiler option 34 


36,37, 38 


Load module 


cross reference list 40,84, 85 


execution of (see execution, load 
module) 
map 40,84 
Locations, storage 64 


LOgical records 51-56 
LRECL subparameter 51 


Main storage specification 
for a job 17 
for a job step 21 

MAP 
compiler option 
linkage editor option 

Member of a PDS 10 

Messages 
class 17 
compiler error/warning 
compiler informative 
control statement 16 
linkage editor 84 
load module 85-86,124 
Operator 86,137 
program interrupt 
source module diagnostic 
traceback 85-86 

Minimum system requirements 64 

MOD subparameter 27 

MODE subparameter 25 

Module map 
load module 40,84 
Object module 80,82 

MSGCLASS parameter 17 

MSGLEVEL parameter 16 

Multiple compilation 29-30, 35-36 

Multiple link editing 36,37 

Multiprogramming with a fixed number of 

tasks 12 
Multiprogramming with a variable number of 
tasks 12 
MXIG subparameter 48 


35, 80,82 
40, 84 


83-84,114-124 
83,114 


86,124-125 
83-84,114-124 


NAME compiler option 34 

NCAL linkage editor option 40 

NEW subparameter 27 

NL subparameter 42-43,49 

NODECK compiler option 35 

NOEDIT compiler option 35 

NOID compiler option 35 

NOLIST compiler option 34 

NOLOAD compiler option 35 

NOMAP compiler option 35 

NOSOURCE compiler option 35 

NOXREF compiler option 35 

Notation for defining control statements 
13-14 

Number of I/O devices subparameter 
24, 46-47 


Object module | 
card deck 80,82,83 
listing 34, 79-83 
OLD subparameter 28 
Operator messages 86,137 
OPT compiler option 34 
Optimization 64-70 
branching 70 
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COMMON blocks 66,67,68 
conditional branching 70 
in loops 66,67 
logical IF statements 69 
multidimensional arrays 68 
option 34 
program structure 068 
register allocation 67 
use of optimizer 65 
Option table 
accesSing entries from 88 
altering 88,92 
considerations 92 
creating 92 
default values 90,99 
description of 88 
entries 89 
Options 
compiler 33-35 
linkage editor 40 
Organization of data sets 10 
Output 
of a load module 85-86 
of the compiler 78-84 
of the linkage editor 84-85 
OVERLAY linkage editor control statement 
39 
Overlaying load modules 39 
Overriding cataloged procedures 10, 61-63 
OVLY linkage editor option 39 


Parameters 

keyword 13 

positional 13 
PARM parameter 20,40,62 
PARM. procstep parameter 20, 40 
Partitioned data set 10 
PASS subparameter 28 
Passed data sets 28 
PDUMP subroutine 70-71 
PGM parameter 19 
Positional parameters and subparameters 13 
Primary control program 12 
Printer spacing 25,50,138 
Priority of a job 16-17 
Priority scheduler 12 
PRIVATE subparameter 47 
Private volume 47 
PROC parameter 18 
Procedure step 9 
Procedure, cataloged 9-10, 29-31, 58-61 
Procstep 18 
Program interrupt messages 86,124~-125 
Programmer's name parameter 16 
Protection exception 124 
PRTSP subparameter 25 
PRTY parameter 17 


Real constants and variables 64 

RECFM subparameter 51 

REF subparameter 47 

REGION parameter 17, 21,58 

REPLACE linkage editor control statement 
39 

Requesting a message class 17 

RETAIN subparameter 47 

Retent#on period for data sets 49 .° 

RETPD subparameter 49 | 
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Retrieving data sets 25-26, 43-44 
RLD cards 82 

RLSE subparameter 48 

ROUND subparameter 49 


Save area 108,109 
Segment control word 54 
SEP parameter 76 
SEP subparameter 76 
Sequential data set 10 
Sequential scheduler 12 
SER subparameter 47 
Serial number, volume 47 
Setting job step time limits 21 
SHR parameter 27 
SL subparameter 42-43,49 
SOURCE compiler option 35,78 
Source listing 78 
Space on direct access volumes 48-49 
SPACE parameter 48-49, 76,77 
Specification exception 124 
SPLIT parameter 76-77 
STACK subparameter 25 
Stacker selection 25 
Standard labels 11,26, 42-43,49 
step 

job 9 

procedure 10 
Stepname 17 | 
Storage map 35, 80, 82 
Structured source listing 35,78,79 
SUBALLOC subparameter 77 
Subprograms, assembler language 108-113 
SYSABEND ddname 31,32 
SYSCP device class 32 
SYSDA device class 32 
SYSIN ddname 31, 32 
SYSLIB ddname 37 
SYSLIN ddname 31,32,33,37,38 
SYSLMOD ddname 38 
SYSOUT parameter 25 
SYSPRINT ddname 31,32 
SYSPUNCH ddname 31,32 
SYSSQ device class 32 
SYSUT1 ddname 31,32,37,58 
SYSUT2 ddname 31, 32,37,58 


Tape density 50 

Temporary names for data sets 27 
Terminating a job 16 

Time limits of a job step 21 
Traceback 85-86,91 

Track overflow 51 

TRK subparameter 48, 76,77 

TRICH subparameter 50 

TXT card 83 


Unblocked records 51-56 

UNCATLG subparameter 28 
Undefined logical record 53 

UNIT parameter 24-25,46-47 

Unit record data sets 24-25,49 
User cataloged procedures 60 
User-supplied exit routine 91-92 


Variable-tength logical record 53,54 
Variables 64 
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Volume 
Volume 
VOLUME 
Volume 
Volume 


10 : 
count subparameter 47 
parameter 47 
sequence number subparameter 47 
serial number 47 


Warning messages 
(see error/warning messages) 


Word 


64 


XREF compiler option 35,78,79 
XREF linkage editor option 48,76,77 
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